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Section  1-1 

STAR  TRACKER  CONTROL  PROGRAM  LISTING 


i 

* 


o 


* 


1-1 


rogram  NRL 


PROGRAM  ,,NEWNRLn 

Written  by  Kris  Parrish 
April  11,  1 985 

This  is  a  new  program  to  be  used  with  the 
NRL  tracker  and  Phil  McCollum's  interface  box. 


DIM  Clear  Si  1*3  .Of  f_f  lag$[8  3  .  On_f  lagSfSJ  .  Disp_f  lagStS]  ,  Auto_f  lagSt  1  3  3 
DIM  Auto_d i sp_f 1 agS [ 131 . S t ar_data( 100.12) . Read_s t r i ngS [201 
DIM  Send_msg$[ 35 ] , F i i e_st r ing$[ 7  3 , D i sk_s t r i ng$[ 14] . Ctb le(  1  5 > 

DIM  Er r_msgSf 30 3 


Initialize  variables  and  flags 


Test_f iag=0 

Se i f _test_f lag=0 
Star  1 _f iag=  1 
3  tar 2_t 1 ag= 1 
Star3_f iag=1 

Cur r_star=3 

X _ pos n  = 128 

Y_Posn= 1 28 
Adapt_rate_f lag=0 
Acqu_f lag* 1 

Acqu_type= 1 


Num_t i mes =2 
Tak_dat_f lag=0 
D a  c a_c  o  un t  =  0 
Max_dat  =  100 
Max_num_f  i  les  =  0 
Max_f i 1 es=5 
Nf i i es  =  0 

F l le_str ing$="FILE_” 

D i s«_st r i ng$=" : HP8290 1 ,700, 1" 

hour =0 

M l nute=  0 

Second* 0 

T i me_f 1 ag  =  0 

Inv_of f = 1 28 

I nv_on= 1 29 

Pr  lor  =  0 

Inter_f ace=0 

Menu_f iag=0 

C  t  r  1  =  3 

CONTROL  12. 2: Ctrl 


For  use  w/  the  interface  box 
0  is  with.  1  is  without 
Self  test  DN/'OFF  to  OFl- 
Star  *1  enabled 
Star  *2  enabled 
Star  *3  enabled 

0  is  disabled . . . 

Current  star 
Current  X  position 
Current  Y  position 

Adaptive  Rate  ON/OFF  to  OFF.  1  is  ON 
Acquisition  AUTO/MANUAL  to  AUTO 
0  is  MANUAL.  1  is  AUTO 
Acquisition  type  is  FULL  FQV, 

0  is  OFF.  1  is  FULL  FOV,  2  is  FULL  EDGE 

3  is  VECTORED  EDGE 

Drop  star  criteria  to  2  tries 

Take  data  ON/OFF  to  OFF 

Used  for  writing  star  data  to  file 

Maximum  number  of  data  sets  per  xile 

Initialize  file  counter  to  zero 

Maximum  number  of  data  files 

For  creating  sequential  data  fiie  names 

String  used  to  create  data  file  name 

Defines  right  disk  drive  for  data  storage 

Variable  used  to  time  data 


Terminal  video  OFF  command 

Terminal  inverse  video  command 

Set  up  priority  for  ON  KEY  commands 

Command  to  be  sent  to  interface  CD  No-op > 

Used  to  determine  where  errors  come  from 

Variable  for  control  register 

Define  CTRL0=0  (inverted) 


Data_togg leS=CHR$(92 ) 

C 1  ear 4  =  CHRS<  255 ) &CHR$<  75  > 


!  CTRL1=0  (inverted) 

!  Display  character  to  show  update  interval 


C i ear 4=CHRS( 255 ) &CHR$< 75 >  ’  Clear  screen  command 

I 

Auto_f  lagS«"0N/0FF/"&CHR$<I nv_on ) &"AUT0"&CHRS> ( I nv_of  f  ) 

Of  f_f  lagS="0N/"&CHRS<Inv_on>6"0FF"&CHR$<Inv_off ) 

On_f lag$  =  CHR$( Inv_on ) &"0N"&CHR$( Inv_of  f )&"/QFF" 

} 

GOSUB  Set_up_table  \  Set  up  command  values  in  CTBLE 

OFF  KEY 

» 


Menu!  start 


Set  up  UN  KEY,  and  screen  stuff... 


Menu1_star  t : 
Prior* Prior+1 
ON  KEY  0  LABEL 
ON  KEY  1  LABEL 
ON  KEY  2  LABEL 
ON  KEY  3  LABEL 
ON  KEY  4  LABEL 
ON  KEY  5  LABEL 
ON  KEY  b  LABEL 
ON  KEY  7  LABEL 
ON  KEY  S  LABEL 
ON  KEY  9  LABEL 
PRINTER  IS  1 


''Redisplay"  .Prior  GOSUB  Re_display 
"Self  Test", Prior  GOSUB  Self_test 
"Star  Disab le" , Pr lor  GOSUB  Star_disabie 
"Star  Enabl e" , Pr lor  GOSUB  Star_enable 
"Adaptive  Rate", Prior  GOSUB  Adapt_rate 
"Acquis i t ion" , Pr lor  GOSUB  Acquisition 
"Take  Data".Prior  GOSUB  Take_data 
"Menu  2  Opt  ions" . Pr ior  GOSUB  Henu2_start 
"Tracker  Status" , Pr ior  GOSUB  Get_status 
"Exit", Prior  GOTO  Shutdown 


CONTROL  1:1,1 
OUTPUT  2 : Clears ; 
GOSUB  Chk_f lgs_men1 


!  Clear  the  terminal  screen 
!  Set  up  initial  flag  conditions 


Menu! 


Menu  I  : 

Menu_f lag* 1 
CONTROL  1  :2b,  1 

PRINT  "TRACKER  COMMAND  MENU  fiV 
CONTROL  1:25.3 

PRINT  "1:0  Re-display  Screen" 


’000 

CONTROL 

1  :  25 , 4 

i  0  1  0 

PRINT  " 

Se  1  f 

Test" 

:  020 

CONTROL 

1:25,5 

1 030 

PRINT  " 

t- 2  Star 

Disab ie" 

:  040 

CONTROL 

1:25,6 

:  050 

PRINT  " 

k  3  Star 

Enable  " 

■;  t  o  b  o 

CONTROL 

1  ;  25 , 7 

1  070 

PRINT  " 

’,4  Adaptive  Rate" 

:  080 

CONTROL 

1:25,8 

i  090 

PRINT  " 

5  Acquis l t ion" 

B  :  '00 

CONTROL 

1:25.9 

B  -no 

PRINT  " 

8  T  at  e 

Data" 

•  ;20 

CONTROL 

1:25.10 

-  '  I  30 

PRINT  " 

7  Menu 

*2  Options 

:•  M40 

CONTROL 

1:25,H 

1  50 
160 
170 
ISO 
1  90 
200 
210 
Acqu 


X=  ";X_posn; 


; Y_posn ; "  Star 


PRINT  "k8  Get  Tracker  Status" 

CONTROL  1:25,12 

PRINT  "1:9  Exit  Program" 

CONTROL  1:1,14 

OUTPUT  1  USING  "3< 1 1 X . 1 0A , />"  ; "Star  #1  "."Star  #2  "."Star  #3 
CONTROL  1:12,18 

PRINT  "Current  Star  *  " ; Cur r_star : "  X=  ";X_posn;"  Y=  ";Y_posn;" 
t  r ies" : Num_t imes 

STATUS  1 2 . 5 : Tk r_status  1  Get  status  from  tracker 

Tk  r_comrriand  =  BINAND(  Tkr_status.3)  +  lC 

IF  Test_fiag=1  THEN  Tk r_command= 1 2  !  If  we  aren't  using  the  mterf 

SELECT  Tk r_command  !  else,  determine  what  to  do 

CASE  1 0 

GOSUB  Get_data 
G0SUB  Trans_error 
CASE  1 1 

GOSUB  Trans_error 
CASE  1 2 

GOSUB  Get_data 
END  SELECT 

GOSUB  Chk _f 1 gs_men 1  !  Check  the  status  of  all  flags,  etc 

GOTO  Menu!  !  Loop  in  Menu  1  options 


!  Get  status  from  tracker 

?  If  we  aren't  using  the  interface 
!  else,  determine  what  to  do  now 


Menu2_star  t 


Menu2_star t : 

P  r  i  o  r  =  P  r  i  o  r  + 1 
ON  KEY  0  LABEL 


ON  KEY  0  LABEL  "Redisplay" , Pr lor  GOSUB  Re_display 
ON  KEY  1  LABEL  "Track  6  X,Y", Prior  GOSUB  Track_.it 
ON  KEY  2  LABEL  "Drop  Cr i ter ia" ,Pr lor  GOSUB  Drop_cr i ter  la 
ON  KEY  3  LABEL  "X  Posi t  ion" .Prior  GOSUB  $et_x 
ON  KEY  4  LABEL  "Y  Pos i t ion" . Pr i or  GOSUB  Set_y 
ON  KEY  5  LABEL  "Current  Star". Prior  GOSUB  Set_star 
ON  KEY  6  LABEL  "Take  Data", Prior  GOSUB  Take_data 
ON  KEY  7  LABEL  "Menu  1  Opt  ions" , Pr ior  GOSUB  Menul_start 
ON  KEY  8  LABEL  "Tracker  Status" , Pr ior  GOSUB  Get_status 
ON  KEY  9  LABEL  "Exit  Program" .Prior  GOTO  Shutdown 
CONTROL  1:1,1 
OUTPUT  2:ClearS; 


Menu2 


Menu2 :  1 

Menu._f  lag  =  2 
CONTROL  1:26.1 

PRINT  "TRACKER  COMMAND  MENU  *2" 

CONTROL  1:25,3 

PRINT  "k0  Re-display  Screen" 

CONTROL  1:25,4 

PRINT  'VI  Track  Current  Star  at  X.  Y" 

CONTROL  1:25.5 

DRINT  "k2  Set  Drop  Star  Criteria  [ " : Num_t imes ; " ] 

CONTROL  1:25.6 

PRINT  "k 3  Set  X  Position  [";X_posn;"] 

CONTROL  1;25,7 

PRINT  "k4  Set  Y  Position  l " ; Y_posn ; " 1 


1  790 

CONTROL  1 

•  oc.  o 

.  i-P  « o 

1  750 

PRINT  "k5 

Set  Star  Number 

760 

CONTROL  1 

;25 . 9 

17  70 

PRINT  "kb 

Take  Data" 

1  7  SO 

CONTROL  1 

;25 . 1  0 

•790 

PRINT  ”k 7 

Menu  Options" 

■  800 

CONTROL  1 

;  25 . 11 

'310 

PRINT  "ic3 

Get  Tracker  Status" 

■  820 

CONTROL  1 

:25. 12 

’  830 

PRINT  "k9 

Exit  Program" 

1890 

CONTROL  1 

;1  .19 

'850 

OUTPUT  1 

USING  "3<  1 1 X ,  1  0A , : "Star 

i860 
'  87  0 

STATUS  12 

. 5 ; Tk  r_status 

l";Curr  star;"] 


,"Star  *2 


,"Star  *3 


■  880 
'890 
900 

;  s  1  o 

920 
•  930 
;  990 
’3F0 
i  960 
'  9  7  0 

1  980 
’  990 
2000 
2010 
2020 
2030 
2090 
2050 
2060 
207  0 

20  SO 
2090 
2100 

2  1  1  0 
2  !  2  0 
: 1 30 
2":  90 
2150 

21  60 
2170 
2’ 30 
2  ■  90 
2200 
22 1  0 
2220 
2230 
2290 
2250 
2260 
2270 
2230 
2290 
2300 
2  210 
2320 


Tt:  r_command=BINANB(  Tk  r_status  . 3>  +  1  0 
IF  7est_flag=1  THEN  Tk r_command= 1 2 
SELECT  Tkr_command 
CASE  10 

GOSUB  Get_data 
GOSUB  Trans_error 
CASE  1 1 

GOSUB  7rans_error 
CASE  12 

GOSUB  Get_data 
END  SELECT 

GOSUB  Check_data  1  Che 

GOTO  Menu2  !  Loo 


!  Get  tracker  status 
!  Form  command 

!  If  we  aren’t  using  the  Interface 
!  else  decide  what  to  do  now 


!  Check  the  condition  of  data  talcing  flag 
!  Loop  in  Menu  2  Options 


Program  Subroutines 


Re_di splay 


Redisplay  the  current  screen 


Ke_d i sp i ay ; 

IF  Menu_flag=1  THEN  GOSUB  Menu1_start 
IF  Menu_f i ag=2  THEN  GOSUB  Menu2_start 
RETURN 


Chi  _f  1  gs_men1 


This  routine  will  display  all  flags 
and  conditions,  for  variables  in  Menul . 


!  He  we.e  in  Menu  1 
!  We  were  m  Menu  2 


Chk_t igs_men1 : 
GOSUB  Chi._self_ts 
GOSUB  Check _s tars 
GOSUB  Check _adapt 
GOSUB  Check_acqu 
GOSUB  Check_data 
RETURN 
» 


Check  the  status  of . . . 

Self  Test  Flag 

Individual  Star  Enab 1 e/D i sab  1 e  conditions 
Adaptive  Rate  Flag 
Acquisition  Flag 
Data  taking  Flag 


2340 
2  2  SO 
_  3  6  0 
227  0 
2330 
2390 
2400 
2^10 
2420 
2430 
24  4  G 
2450 
2460 
-4  7  0 
-480 
2490 
2500 
2510 
2520 
2530 
254  0 
2550 
2560 


2290 
260  0 
26' 0 
-620 
—  o  j  0 

264  0 
2650 
266  u 
2  6  7  0 
-630 
2  6  9  0 
2  7  0  0 
2710 
2  7  2  0 
27  30 
2  740 


Chi;  self  tst 


This  routine  will  check  and  display  the 
STATUS  of  the  SELF  TEST  FLAG. 


Chk _se 1 f _ts t : 

CONTROL  1:40,4 
SELECT  Sel f_test_f lag 
CASE  0 

Disp_f lag$  =  0f  f_f lagS 
CASE  1 

Disp_f lag$=0n_f lagS 
END  SELECT 
PRINT  Disp_flag$ 

RETURN 


Position  cursor  at  SELF_TEST_FLAG  location 
Now  determine  self  test  condition 
If  Self  test  is  OFF, 

then  display  OFF  flag 
If  Self  test  is  ON, 

then  display  ON  flag 

Display  the  flag 


Check  stars 


This  routine  will  check  and  display 
the  STATUS  ( enab le/d isab  1  e  >  OF  THE  STARS 


iheck_stars : 
CONTROL  i;46,5 
SELECT  Star1_flaq 
CASE  0 

CONTROL  1:46.6 
PRINT  "  " 

CASE  I 

PRINT  "  " 

CONTROL  1 : 46 , 6 
PRINT  "1  " 

END  SEuECT 
CONTROL  1:46,5 
SELECT  Star2_flaq 
CASE  0 

PRINT  "2  " 
CONTROL  i  :  48 . 6 
PRINT  „ 

CASE  1 

PRINT  "  " 

CONTROL  1:48.6 
PRINT  .. 

END  SELECT 
CONTROL  1:50.5 
SELECT  Star 3_f lag 
CASE  0 

PRINT  "3  " 
CONTROL  1:50,6 
PRINT  "  " 

Case  i 
PRINT  "  " 

CONTROL  1:50.6 
PRINT  "3  ” 

END  SELECT 
RETURN 


Position  cursor  for  Star  *1 

Check  Star  *1  condition 

If  Star  *1  is  disabled. 

then  display  Star  #1  as  disabled 
and  clear  enable  display  for  Star  *  " 

If  Star  *1  is  enabled. 

then  clear  disable  display  for  Star  *1 
and  display  Star  as  enabled 

End  of  Star  *1  condition  check... 

Position  cursor  for  Star  *2 

Check  Star  *2  condition 

If  Star  #2  is  disabled. 

then  display  Star  *2  as  disabled 
and  clear  enable  display  for  Star  # 2 

If  Star  *2  is  enabled, 

then  clear  disable  display  for  Star  *2 
and  display  Star  #2  as  enabled 

End  of  Star  # 2  condition  check... 

Position  cursor  for  Star  *3 

Check  Star  #3  condition 

If  Star  #3  is  disabled, 

then  display  Star  #3  as  disabled 
and  clear  enable  display  for  Star  ^3 

If  Star  *3  is  enabled. 

then  clear  disable  display  for  Star  *3 
and  display  STar  #3  as  enabled 

End  of  Star  *3  condition  checl  ... 

DONE  ! ! 


2940 

2950 

2960 

2970 

2980 


2040 

3050 

3060 

30  70 
3080 
3090 
2100 

3 1  '!  0 
3120 
31  30 
3140 

1  5  0 
3160 
?  1  7  0 
3130 


:  320 
3230 


Check _adapt 


' his  routine  will  check  and  display 
the  STATUS  of  the  ADAPTIVE  RATE  FLAG. 


Check _adap  t : 

CONTROL  1  ;  4 4 , 7 
SELECT  Adap t_rate_f 1 ag 
CASE  0 

Disp_f lag$  =  0f  f_f lagS 
CASE  1 

Disp_f laqS=0n_f lagS 
END  SELECT 
PRINT  Disp_f lagS 
KETURN 


Postion  cursor  for  ADAPT_RATE_FLAG 
Check  condition  of  the  adaptive  rate  flag 
If  Adaptive  rate  is  OFF, 

then  display  the  OFF  condition 
If  Adaptive  rate  is  ON, 

then  display  the  ON  condition 


Check_acqu 


This  routine  will  check  and  display 
the  STATUS  of  the  ACQUISITION  FLAG. 
0  is  OFF,  1  is  ON,  2  is  AUTO. 


Check _acqu: 

CONTROL  1:42.8 
SELECT  Acqu_fiag 
C  A  S  l  0 

D i sp_f lagS  ^'MANUAL 
IF  Acqu_type=0  THE 
IF  Acqu_t y pe= 1  THE 


Position  cursor  for  ACQU_FLAG 
Check  the  status  of  the  Acquisition  Flag 
!  If  Acquisition  is  OFF. 

1  then  display  the  OFF  condition 


THEN  Disp_f  lag2S  =  ’’0FF” 

THEN  Disp_f Iag2$-“FULL  FOV 


IF  ACqu_type  =  2  THEN  DisP_f  lag2$="FULL  EDGE” 
IF  Acqu_type=3  THEN  Disp_f lag2$=”VEC  EDGE  ” 


it  A c q u_ t y p e  =  q  THi 

CASE  1 

Disp_f 1 agS=”AUT0" 
D i so_f 1 ag2$= ” 

END  SELECT 

PRINT  Disp__f  lagS  :  "  1 

RE  TURN 


; D isp_f lag2S 


VEC  EDGE  " 

!  If  Acquisition  is  ON 
!  then  display  the  ON  condition 


Display  the  f lags 


Check  data 


ihis  routine  will  check  and  display 
the  STATUS  of  the  DATA  TAKING  FLAG. 


9ieck_data: 

CONTROL  1:40.9 
SELECT  Tak _data_f lag 
CASE  0 

U i sp_f i agS=0f  f _f lagS 
PRINT  Disp_fiagS;” 

G  A  S  E  1 

Disp_f iagS=0n_f lagS 
PRINT  DisP_flagS 
END  SELECT 
RETURN 


Position  cursor 
Check  status  of 
If  Data  taking 
then  display 

1  f  Data  tak  l  ng 
then  display 


for  TAK_DATA_FLAG 
the  data  taking  flag 
is  OFF. 

the  OFF  condition 

1  Clear  file  number 

i  s  ON 

the  ON  condition 


1 


!» 


b 


3540 

3550 


3560 

3570 

3580 

3590 

3600 


on 


3630 
3  64  0 
3650 
3  o  b  0 
367  0 


0  0 
'  ij 
30 
30 


•■f  *  -1 

*  Mena!  Options 


Self  test 


This  routine  will  TOGGLE  the  SELF  TEST 
FLAG  and  set  up  the  variables  needed  to  send 
commands  to  the  tracker  interface. 


c"lf  test: 


.  O  O  u 

5590 
3  7  0  0 
3  7 10 
3720 
37  30 
3  74  0 

:  7  c  h 


3: 7  7  0 
3730 
3790 
3300 
3  3  i  0 
3320 
3320 


-030 
4040 
a  050 

M  !.l  6  0 

•4  0  7  0 
a  0  8  0 

4090 


Of 

'|TC 
U  x  o 


ABLE 


!  Disable  all  interrupts  from  ON  KEY  commands 
!  Toggle  the  SELF  TEST  FLAG 
Se 1 f _tes t_f 1 ag= 1 -$e 1 f _test_f lag 

GOSUB  Chk_seif_tst  !  Display  the  NEW  condition 

t 


inter  face=224 


!  Set  up  command  for  SELF  TEST 
!  and  send  message 

t 

SenG_msqS= "Se If  Test  "AD i sp_f 1 ag$&"  Command" 

I 

i 

GOSUB  Lmd_mter f ace  !  Output  command  to  interface  box 

ENABLE  !  Enable  interrupts  for  ON  KEY  commands 

RET  URN 


334  0 

3  3 1>  0 

3  360 
33  7  0 

1  *  Star_di sable  * 

t 

This  routine  will  DISABLE  the  CURRENT  STAR. 

3  o  3  0 

!  and  change  the 

\ 

star  flag  to  show 

c 

uch  status. 

3390 

3900 

Star  disaoie: 

1 

331  0 

DISABLE 

!  D l sab  1  e  all 

interrupts  from  the  ON  KEY  commands 

3320 

Is  current  star  .  .  . 

9  3  0 

IF  Curr  star=1  THEN 

Star  1  f lag  =  0 

t 

#1  76 

q  4  0 

IF  Curr  star=2  THEN 

Star 2  f lag=0 

fi2  77 

3950 

IF  Curr  star =3  THEN 

Staro  f 1 ag=0 

t 

*3  7? 

3960 

GOSUB  Check  stars 

* 

Display  NEW  condition 

39  7  0 

! 

2-  d  y  Li 

I  n  t  er_f  ace=  '!  52 

♦ 

Set  up  command  for  disable  star 

Mr  SO 

Sene  msgS="Star  Disaoie  Command" 

and  send  message 

4UC0 

GOSUB  Lmd  interface 

t 

Output  command  to  interface  box 

4  0  10 

Inter  f  ace-'C tb  le(  Cur 

r  star) 

1 

Set  up  command  to  reflect  star  ft 

4020 

Send_msgS.  =  "S  tar  a "6 VALS  ( Cur  r_s  tar  ) 

t 

and  send  message 

GOSUB  Cmd_i nterf ace 
ENABLE 
R  E  T  U  R  N 


Output  star  #  to  interface 
!  Enable  ail  interrupts  for  ON  KEY  commands 


Star__enabie  * 


'ms  routine  will  ENABLE  the  CURRENT  STAR, 
and  change  the  star  flag  to  show  such  status. 


4  14U 
4150 
4  160 
4170 
4180 
4  190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
42  7  0 
4280 
4290 
4300 

4310 

4320 

4  j  3  0 

4340 

4250 

4  360 

4  370 

4380 

4  390 

44  00 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4t>90 

4600 

4610 

4620 

4630 

464 

4650 

4660 

4670 

4680 

^690 

4  7  Ci  0 

<«71  0 

VEC  £ 

4  720 


Star_ena£>ie 

DISABLE 


IF  Curr_star=1  THEN  Star  1 _f 1 ag= 1 
IF  Curr_star=2  THEN  Star2_flag=1 
IF  Cu.rr_star  =  3  THEN  Star3_flag=1 
GCSUB  Check  stars 


!  Disable  all  interrupts  from  the  ON  KEY  commands 
!  Is  current  star  .  .  . 

_f 1 ag= 1  !  #\  7? 

_flag=1  !  #2  7? 

_flag=1  !  *3  7? 

!  Display  NEW  condition 


Inter_f  ace  =  1 20 

Send_msg$=“Star  Enable  Command" 
GOSUB  Cmd_interf ace 
Inter_f  ace  =  Ctble(Cur r_star ) 
Send_msg$  =  "S tar  ^"&VALS(Curr_star  > 
GOSUB  Cmd  interface 


ENABLE 

RETURN 


Set  up  command  for  star  enable 
and  send  message 
Output  command  to  interface 
Set  up  command  to  reflect  star  # 
and  send  message 
Output  star  #  to  interface 


!  Enable  all  interrupts  for  ON  KEY  commands 


!  *  Adapt_rate  * 

\  *■  ■*«*■*■*■*•  +■  *■■**■•*■*■  «*■**■*  *<***- 

♦ 

!  This  routine  will  TOGGLE  the  ADAPTIVE  RATE  FLAG, 

!  between  ON/OFF,  and  also  set  up  the  correct  command 

!  to  be  sent  to  the  tracker  interface. 

Adapt_rate:  ! 

DISABLE  !  Disable  all  interrupts  from  ON  KEY  commands 

Adapt_rate_f lag= 1 -Adapt_rate_f lag  !  Toggle  the  adaptive  rate  flag 

GOSUB  Check_adapt  !  Display  NEW  condition 

!  Set  up  send  message 
I  and  Adaptive  Rate  command 
\ 

Send_msgS="Adapt ive  Rate  "&Disp_f lagS&"  Command" 

Inter_f ace=1 80  ! 

< 

GOSUB  Cmd_interf ace  !  Output  command  to  interface 

ENABLE  !  Enable  all  interrupts  for  ON  KEY  commands 

RETURN 


Acquis i t ion 


This  routine  will  TOGGLE  the  ACQUISITION  FLAG 

between  ON/OFF/AUTO,  and  also  set  up  the  correct  command 

to  be  sent  to  the  tracker  interface.  0  is  OFF,  1  is  ON. 

2  is  AUTO. 


Acquis i t ion : 

DISABLE 

Acqu_f lag= 1 -Acqu_f lag 
GOSUB  Check _acqu 


!  Disable  all  interrupts  from  ON  KEY  commands 
!  Change  the  acquistiion  flag 
!  Display  the  NEW  condition 
!  Set  up  send  message 
!  and  command  for  Acquisition 


IF  Acau_f lag=0  THEN 
BEEP 

INPUT  "Please  input  Acquisition  type:  0=OFF,  1 =FULL  F0V.2=FULL  EDGE,  3= 
EDGE" ,Acqu_type 

IF  Acqu  type>-1  AND  Acqu  type<4  THEN  Send_acqu 


47 

474U 

dQa.]  fi 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

487  0 

4880 

4890 

4900 

491  0 

4920 

4  930 

-940  ' 

a  950 

4960 

4  9  7  0 

4980 

4  990 
500  0 
5010 
5020 
50  30 
504  0 
5050 
5060 

50  7  0 
5080 
5090 

5 1  0  0 
51  10 
5120 
5130 
5140 
5150 
5160 

5  i  7  0 
5130 
5190 
5200 
521  0 
5220 
9280 
5240 
5250 
5260 
527  0 
5280 


DISP  INVALID  acquisition  type  " ; Acqu_type ; "  press  <C0NT>  to  try 

PAUSE 
GOTO  4710 

END  IF 

Send_acqu:  ! 

Send_msg$="Acquis i t i on  "<SiAuto_disp_f  lag$&"  Command" 

Inter_f ace=204  ! 

GOSUB  Cmd_mterf ace  !  Jutput  command  to  interface 

ENABLE  !  Enable  all  interrupts  for  ON  KEY  commands 

RETURN 


Take  data 


!  This  routine  will  TOGGLE  the  DATA  TAKING  FLAG, 

!  between  ON/OFF,  no  command  is  sent  to  the  interface 

!  but  some  variables  associated  with  the  process 

!  must  be  set. 

t 

ake_data:  ! 

DISABLE  !  Disable  all  interrupts  from  ON  KEY  commands 

Tak_data_f lag= 1 -Tak_data_f lag  !  Toggle  the  data  taking  flag 

GOSUB  Check_data  !  Display  the  NEW  condition 

!  If  we  aren't  taking  data  then  DONE 
If  Tak_data_f lag=0  THEN  Tak e_data_end 


Data_count=0  !  Else  re-set  the 

'iax_nuni_f  i  les  =  Nf  i  les+Max_f  l  les  !  Increment  the  ma 

IF  Nf i les<=Max_num_f i les  THEN  !  If  we  haven't  ex 

PRINTER  IS  1  ! 

IF  Nfiles=Q  THEN  !  If  we  haven't  in 

BEEP 
DISP 

INPUT  "Please  input  initial  data  file  #  >",Nfiles 

t 

IF  Nfiles>=0  AND  Nfiles<=99  THEN  !  Check  inp 

Max  num  tiles=Max  files+Nfiies 


Else  re-set  the  data  set  counter 
Increment  the  max  number  of  files 
If  we  haven't  exceeded  our  limit 

If  we  haven't  input  a  starting  file  * 


!  Check  input  for  validity 


BEEP 

DISP 

DISP  "INVALID  file  #  ";Nfiles:’\  f 

PAUSE 

DISP 

GOTO  5070 
END  IF 
END  IF 

T  ak  e_data_end : 

IF  Data_count>0  THEN  GOSUB  Write_data 


press  <C0NT>  to  try  again!1 


!  Input  file  number  again... 


!  Write  residual  data  to  the  file 


ENABLE 

RETURN 


!  Enaole  all  interrupts  for  the  ON  KEY  commands 


Menu2  Options 


b  3  3  0 
5340 


5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
b  4  b  0 
54  70 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
b  5  h  0 
5570 
5580 
5590 
5600 
:>6 ' 0 
5620 
5630 
564  0 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 


5750 

5760 


5  7  8  0 
5790 

b  8  0  0 

5310 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 
59 ’0 


Track  it 


This  routine  will  set  up  variables  for  the 
COMMANDED  TO  TRACK  POSITION,  it  will  use  the 
CURRENT  STAR  X  POSITION,  Y  POSITION  for 
i  nf  ormat  ion  sent  to  the  tracker  interface. 


T  r ack_i t : 

DISABLE  !  Disable  all  interrupts  from  ON  KEY  commands 

Inter_f ace=84  !  Set  up  commanded  to  track  position  command 

!  and  send  message 
Send_rrisgS  =  " Track  at  X ,  Y  Command" 

GOSUB  Cmd_mter f ace  !  Output  Track  command 

I 

In ter_f ace=Ctble< Cur r_star )  !  Set  up  star  # 

Send_msgS="Star  ^"&UAL$(Curr_star >  !  and  send  message 


GOSUB  Cmd_mterf ace 
Inter_f ace=X _posn 


!  Output  star  #  to  track  to  interface 


Inter_face=X __posn  !  Set  up  the  X  position 

!  and  send  message 

Send_msgS="X  Position  [ "AVALS (X_posn ) &" ] " 

GOSUB  Cmd_inter f ace  !  Output  X  position  to  interface 

GOSUB  Cmd__interf ace  !  (must  output  this  puppy  twice...) 

t 


Inter_f ace= Y_posn  !  Set  up  the  Y  position 

1  and  send  message 

Send_msg$  =  " Y  Position  ["&VAL$(Y __posn)&"]" 

GOSUB  Cmd_mter f ace  !  Output  Y  position  to  interface 

GOSUB  Cmd_interf ace  !  (must  output  this  puppy  twice) 


ENABLE 

RETURN 


1  Enable  all  interrupts  for  ON  KEY  commands 


Drop_cr i ter  la 


This  routine  will  query  the  user  for  the  DROP 
CRITERIA  which  is  currently  defines  as  the  number  of  times 
the  tracker  will  try  and  track  the  star  before  it  is  dropped, 
it  will  also  set  up  the  correct  command  to  be  sent  to 
the  tracker  interface. 


Drop_cr i ter  la:  ! 

DISABLE  !  Disable  all  interrupts  from  ON  KEY  commands 

DISP  !  Clear  the  display  line 

BEEP 

INPUT  "Please  input  the  new  drop  criteria  >" ,Num_times 
IF  Num_times>0  AND  Num_t imes<=1 5  THEN  End_criteria 
BEEP 

DISP  "INVALID  drop  criteria  " ; Num_t imes ; " ,  press  <C0NT>  to  try  again! 
PAUSE 


GOTO  Drop_c r i ter i a 
End_cr i ter  la: 

Send_msgS="Drop  Criteria  Command' 
Inter_f  ace  =  44 
GOSUB  Cmd  interface 


!  Let  the  user  try  again... 

!  Set  up  send  message 
!  and  Drop  criteria  command 
!  Output  command  to  interface 


*  Set  up  send  message 


5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
61  00 
6  1  1  0 
6120 
6130 
61  40 
6150 

o  1  6  0 

6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
63 1  0 
6320 
6330 
6340 
6350 


In ter_f ace=Ctb le( Num_t imes )  !  and  drop  criteria  data 

Send_msg$  =  "Drop  Criteria  Data  [  "&VAL$(Num_times)&"  ]" 

* 


60SUB  Cmd_interf ace 

ENABLE 

RETURN 


Set  X 


!  Output  command  to  interface 
!  Enable  all  interrupts  for  ON  KEY  commands 


This  routine  will  query  the  user  for  the  new  X 
POSITION. 


Set_x:  1 

DISP  !  Clear  the  display  line 

BEEP 

INPUT  "Please  input  the  new  X  pos i t ion" , X_posn 

!  Check  input  for  validity 

IF  X_posn>-1  AND  X_posn<257  THEN  End_set_x 
BEEP 

DISP  "INVALID  X  position  " ;  X_posr. ; "  press  <C0NT>  to  try  again!" 

PAUSE 

GOTO  Set_x  !  Let  the  user  try  again 

Ena_set_x:  ! 

RETURN 


Set  Y 


This  routine  will  query  the  user  for  the  new  Y 
POSITION. 


Set_y : ! 
DISP 
BEEP 


!  Clear  the  display  line 


INPUT  "Please  input  the  new  Y  pos i t i on" . Y_posn 

!  Check  input  for  validity 

IF  Y_posn>-1  AND  Y _posn<257  THEN  End_set_y 
BEEP 

DISP  "INVALID  Y  position  ";Y_posn;"  press  <C0NT>  to  try  again!" 

PAUSE 

GOTO  Set_y  !  Let  the  user  try  again 


Set  star 


o  3  6  0 

End  set  y : 

637  0 

RETURN 

6380 

t 

6390 

! 

6400 

l  ¥■ 

64  10 

6420 

♦ 

6430 

!  This 

644  0 

!  STAR 

6450 

• 

6^60 

Set  star : ! 

6470 

DISP 

O  4  o  Cl 

BEEP 

6490 

INPUT  "P 

6500 

6510 

IF  Cur r_ 

!  Clear  the  display  line 
.star 

!  Check  input  for  validity 


6520 
5530 
6540 
6550 
6560 
c.570 
6580 
6590 
6600 
5610 
6620 
5630 
o64G 
6650 
6  6  6  0 
5670 
->  c>  8  0 
6690 
67  00 
6710 
6720 

5  730 
6740 
6750 
6760 
67  70 

6  7  8  0 
6790 
6800 
6810 
6820 

6830 

6840 

6  8  5  0 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
8  9  6  Cl 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 

7  060 
70.70 
7080 
7  090 
7:00 


BEEP 

DISP  "INVALID  star  number  " ; Cur r_s tar ;  ‘ 
PAUSE 

GUTO  Set_star 
End_se  t_s  tar : 

RETURN 


Get  status 


This  routine  will  output  the  GET  STATUS 
command  to  the  interface,  and  Dill  then 
check  the  each  of  the  individual  condition 
flags  that  Dill  be  recieved  from  the  interface 


press  <C0NT>  to  try  again!1 
1  Let  them  try  again... 


Get_status : 
DISABLE 

Inter  f ace=21 0 


!  Disable  all  interrupts  from  ON  KEY  commands 
!  Set  up  the  send  message 
!  and  Get  status  command 


Send_msg$'"Ge t  Status  Command1 


GOSUB  Cmd_interf ace  !  Output  command  to  the  interface 

It  Test_flag=0  THEN  !  If  De  ARE  using  the  interface  box  then... 

C  t  r  i  =E;INAND  ( 1  .Ctrl) 

CONTROL  12.2;Ctrl  !  Get  the  status  data  from  the  interface 

WAIT  .1 

ENTER  12  USING  "3< # , W) " ; Statusl ,Status2 ,Status3 
ENTER  12  USING  "3( # . W ) " ; S tatus4 , S tatus5 . StatusG 
ENTER  12  USING  "3( # , W) " : Status7 . Status8 , Status9 

IF  (Statusl =Status4)  AND  (Status4=Status7 >  THEN  !  Make  sure  they  are  of 
IF  STATUS1 =0  THEN  6900 
IF  Statusl <0  THEN  Statusl =65536+Status1 
!  Status  1 'Status  1 /256  !  Convert  these  values  to  decimal 

CONTROL  1  ;  22. 14 

PRINT  USING  10A.K";"  Status'  M;Status1 
PAUSE 

Star  1  _f  lag  =  BI T ( Status  1  ,15) 

Star2_f lag  =  BI T ( Status  1 , 1 4 )  !  Nod  change  flags  according 

Star3_f lag=BIT(Status1 , 1 3)  !  to  the  actual  conditions 

• rack 1_f lag=BIT(Status1 , 1 2)  !  of  the  tracker... 

T  rack  2_f 1 ag'BIT ( Statusl ,1 1 > 

Track  3_f lag=BIT(Status1 , 10) 

P 1 1 =BIT (Statusl .9) 

Pt2  =  BI T ( Status  1,8) 

Acau._flag  =  Pt1+Pt2 

Se i f _tes t_f lag=BIT(Status1 ,7) 

Pt1=BIT(Statusl .4) 

P  t2  =  BI T (Status  1.3) 

Pt3=BIT (Statusl .2) 

Pt4'BIT< Statusl , 1 ) 

Nuiri_t  imes=(Pt1*8)  +  (Pt2*4)  +  (Pt3*2)+Pt1 
END  IF 
END  IF 

ENABLE  !  Enable  ail  interrupts  for  the  ON  KEY  commands 

RE  T  URN 


Cmd  inter f ace 


!  Nod  change  flags  according 
!  to  the  actual  conditions 
!  of  the  tracker . . . 


f 


?:  10 
7120 
7130 
7140 
7  1  50 
7160 
7170 
7130 
7190 
7200 
7210 
7220 
7230 
’’240 
7250 
7260 
7270 
7230 
7290 
730  0 
7310 
7320 
7  330 
7  340 
7350 
7360 
7370 
7  380 
7  390 
7  4  0  0 
741  0 
7420 
7430 
7440 
745  0 
7460 
7470 
:  ime 
7430 
7  490 
7500 
7510 
7  520 


ihis  routine  will  output  a  specific  command 
stored  in  variable  INTER_FACE,  to  the  interface  box 
while  it  is  "waiting"  for  the  acknowledge  signal 
it  will  concurrently  collect  data  from  the  tracker. 


Cmd_i n t er f ace :  ! 

Menu_f lag=3 
C  t  r  1  =  2 

CONTROL  1 2 .2 ; Ctr  1 
WAIT  .1 

Ctrl =BINI0R< 1 .Ctrl) 
CONTROL  12. 2: Ctrl 
DISP 


!  Set  d i r =0UT  CTL1-1 
!  Command  ready  CTL0=1 
!  Wait  for  uP  to  recover  from  reset 

CTlO  pulsed  down,  set  low  when  in  normal  operation  -JL 


.PRESS  STEP.  CONT .ETC’ 


-i.pt'  pending  '  ; $end_msg$ ; "  to  t  racker 
•  DISP  "Sending  " : Send_msg$ ; "  to  tracker 
!  PAUSE 

IE  Test_flag=1  THEN 
WAIT  .5 
DISP 
RETURN 
END  IF 

OUTPUT  12  USING  "*  . B" ; In ter_f ace 
T ime_out=(TIMEDATE)  MOD  86400 
T ime_out=T ime_out+7 
T  ime_out  1  =T  ime__out  +  1  MOD  60 
T ime_f lag=0 
Do_i t_agai n : 

T ime_yet=TlMEDATE  MOD  86400 
IF  (Time_out>Time_out1 )  THEN 

IF  ( T ime_yet>Time_out )  OR  (Time  yet<Time  out1> 

ELSE 

IF  ( T ime_yet>Time  out)  AND  (Time  yet<Time  outl) 

END  IF  ~ 

C heck _t rack er :  ! 

■  DISP  "T ime_yet" ; T ime_yet ; "  Time_out  ";Time_out:"  Time_out1 
" lag" ; T ime_f lag  !  FOR  DEBUGGING  PURPOSES 

WAIT  1.0 

STATUS  1 2 , 5 : Tk r_status 
Tk  r__command  =  BINAND(  Tk  r_s  tat  us  ,  3>  +  1  0 
SELECT  Tk r_command 
CASE  10 


Output  command  to  interface 
Must  wait  for  7  seconds  for 
interface,  collect  data  while 
wai ting. . . 

It  isn't  time  yet . . . 

Check  current  time 


THEN  Time_flag=1 
THEN  T ime_f lag* 1 


Time  out 


7530 

GOSUB  Get  data 

T'  5  4  r  i 

Ctr 1 =BINAND ( 2 , C t  r 1 ) 

7550 

CONTROL  12. 2; Ctrl 

7560 

Ctr  1  =  BINI0R( 1 .Ctrl) 

7570 

CONTROL  1 2 ,2 :Ctr 1 

( 

7530 

GOSUB  Trans  error 

7530 

CASE  1  1 

7600 

GOSUB  Trans  error 

v 

7610 

CASE  12 

7620 

GOSUB  Get  data 

K 

7  630 

END  SELECT 

7640 

IF  Time  flag=2  THEN 

\ 

.  ■ 

7650 

DISP 

n 

7660 

RETURN 

7670 

END  IF 

y 

7  680 

IF  T i me_f lag=0  THEN  GOTO 

jC 

2690 

IF  Time_flag=1  THEN  Time_ 

> 

- 

.1 


Do_i t_agai n 


Not  time  yet. 
Check  status 


one  more  time 


7  700 
77  Hi 
7  720 
7730 
7  740 
7750 
7  7  GO 
7770 
7  780 
7  790 
7800 
7810 
7820 
7830 
7  84  0 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
794  0 
7950 
7960 
7970 
7980 
7990 
8000 
3010 
3020 
8030 
3040 
8050 
3060 

80  70 
3080 
3090 
3100 
8110 
8120 
3130 
3140 
8150 
3160 
8170 
8180 

8 1  90 
3200 
321  0 

8220 

O  '">  0 
ULJO 

3240 

8250 

3260 

8270 

3280 

8290 


GOTO  Check  tracker 


Get  data 


This  routine  wiil  RECIEOE  and  DISPLAY 
STAR  DATA  from  the  interface  box. 


Get_data:  ! 

DISABLE  !  Disable  all  interrupts  from  the  ON  KEY  commands 

IF  Test_flag=0  THEN  !  If  we  ARE  using  the  interface  box  then... 

C t r 1 =BINAND ( 1 , Ct r 1 )  !  Get  star  data  from  the  tracker 

CONTROL  12. 2 -.Ctrl 

ENTER  12  USING  "3( W) Star 1_x , Star 1_y , Star  1 _m 
ENTER  12  USING  "3 <* , W > " ; S tar2_x , S tar2_y . Star2_m 
ENTER  12  USING  "3< # , W > " ; Star3_x , Star3_y , Star3_m 


Star  1 _  x  <  0 

Star  1 _ y  <  0 

3 1  ar 1 _m  <  0 
S  tar2_x  <0 
Star2_y<0 
Star 2_m<0 
Star 3_x<0 
Star3_y <0 
Star 3  m<0 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


Now  check  these  numbers  for  negative  values 


Star 1_x=65536+Star 1_x 
Star 1_y= 65536 +S tar 1_y 
Star  1 _m=65536+Star 1 _m 
Star2_x=65536+Star2_x 
Star2_y =65536+Star2_y 
S tar2_m= 65536 +Star 2_m 
Star 3_x-65536+S tar 3_x 
Star 3_y =65536 +  S tar 3_y 
S tar3_m= 65536+ Star3_m 

I 

6  !  Convert  these  values  to  decimal 


Star 1_x=Star 1_x/256  !  Convert  these  values  to  decimal 

S  t  ar  1  _y  =  S  t  ar  1  _y  /256 
Star  1 _m  =  Star 1_m/256 
Star2_x=Star2_x/256 
S tar 2_y= Star 2_y /256 
Star2_m  =  S  tar2_m/256 
Star3_x  =  Star3_x/256 
Star3_y =Star3_y /256 
S  tar 3_m  =  $  tar 3_m/256 
ELSE 

Star 1_x  = 1 1 +Data_count  !  NOT  using  interface  so  set  up  some 
Star 1_y= 1 2+Bata_count  !  bogus  numbers  for  star  values 

Star 1_m= 1 3+Data_count 
Star2_x=1 4+Bata_count 
Star2_y= 1 5+Data_count 
Star2_m= 1 6+Data_count 
Star 3_x= 1 7+Data_count 
Star3_y= 1 8+Data_count 
Star3_m= 1 9+Data_count 
END  IF 

!  Calculate  time  variables 
!  to  be  written  to  the  data  file 
Datat  =  ( 3600*Hour  +60*M i nute+Secona- T IMEDATE >+ABS(Datat) 

Data_t ime= ( TIMEDATE+Datat >  MOD  86400 
Data_t ime  =  I NT ( Data_t ime* 1 00  > / 1 00 
Hour =Data_t ime  DIO  3600 
11inute  =  Data_time  MOD  3600  D1V  60 
Second=Data_t ime  MOD  60 

CONTROL  1:1.10  !  Display  the  update  flag 

PRINT  USING  "a. 1A";Data_ toggles 


3300 
o  3  'I  0 
3320 
3330 
3340 
8350 
3360 
3370 
3  J  3  0 
£390 
3400 
341  U 
3420 
3430 
3440 
3450 
3460 
84  7  0 
3430 
3490 
8500 
35 !  0 
3520 
3530 
3540 
3550 
85)60 
3570 
8580 
3590 
8600 
3610 
3620 
3630 
3640 
3650 
;!  t>  b  0 


3  7  0  0 
ft  7 1  0 
3720 
87  30 
3  7  4  0 
8750 
3  760 
87  70 
3730 
3790 
8  8  0  0 
3810 


3830 


8860 
.387  0 
8880 


Data._toggle$  =  CHRS<  1  39-NUM(Data_toggle$ ) ) 


CONTROL  1:22,14  !  from  the  trac 

PRINT  USING  "a  , 4A , 4D . 4D" : "  X=";Star1_x 
PRINT  USING  "a  ,  4A , 4D . 4D" : "  Y=":Star1_y 
PRINT  USING  , 4A , 4D .  4D"  :  "  M=":Star1_m 
CONTROL  1:22,15 

PRINT  USING  "#  , 4A , 4D .  4D"  :  "  X=";Star2_x 
PRINT  USING  "a  . 4A . 4D . 4D" ; "  Y=";Star2_y 
PRINT  USING  "a  , 4A , 4D . 4D" ; "  M=":Star2_m 
CONTROL  1  ;  22 . 1 6 

PRINT  USING  "a ,  4A , 4D . 4D" ; "  X=";Star3_x 
PRINT  USING  "a  ,  4A . 4D  .  4D"  ;  "  Y=";Star3_y 
PRINT  USING  'V  . 4A , 4D .  4D"  :  "  M=":Star3_m 

* 

IF  Tak_data_f lag=0  THEN  End_get_data  !  If 
Data_count=Data_count+1  t  EL 

IF  Data_count <  =fiax_dat  THEN 

S tar_data( Data_coun t , 1 > =S tar  1 _x  !  Lo. 

S tar_aata( Data_count , 2 ) =S tar  1_y  !  f 

Star_data( Data_count , 3  >  =Star 1_m 
Star_data(Data_count ,4 ) =Star2_x 
S  t ar_data(Data_count , 5  >  =  S tar2_y 
Star_data( Data_count ,6)=Star2_m 
Star_data(Data_count ,  7  )  =Star3_x 
Star_data(Data_count  ,8)  =  Star3_y 
Star_data<  Data_coant ,9)=Star3_m 
Star_data(Data_count . 1 0)=Hour 
Star_data(Data_coant ,11) =Minute 
Star_data( Data_coant , 12)=Second 
CONTROL  1  ;  48 , 9 

IF  Data_count>0  THEN  PRINT  Data_count 
IP  Data_count=0  THEN  PRINT  M 
END  IF 
END  IF 

IF  Data  count=Max  dat  THEN  GOSUB  Write  data 


!  Display  the  star  values  being  recieved 
!  from  the  tracker... 

X=" : Star 1_x 
Y=" : Star 1_y 
M=" :Star 1_m 


!  If  NOT  taking  data  then  DONE 
»  ELSE. 

!  Load  star  data  into  array 
!  for  writing  data  to  file... 


!  Display  data  count 
!  Else  clear  count  area 


If  array  is  full 
then  write  it  out 


End_get_data: 

ENABLE 

RETURN 


!  Enable  all  interrupts  for  the  ON  KEY  commands 


Write  data 


This  routine  will  write  data  to  the  output  file. 


Wr l te_data: 

ON  ERROR  GOTO  Error_tst 
NumberS=UALS ( Nf iies> 

P l 1 e_st  r i ng$l 6 1 = Numbers [ 1  1 
DISP 


!  Trap  errors  that  occur  when  writing  data 


F  l  ie_st  r  ingS  L  6  1  =Nun)ber$[  1  1  1  Create  a  file  name  to  be  used 

DISP  !  Clear  display  line 

!  Let  the  user  know  what  file  we  are  using 
DISP  "Writing  data  to  >" ;F ; le_str ingS 

!  Designate  the  right  disk  arive  for  data 

MASS  STORAGE  IS  " : HP8290 1 . 700 . 1" 

CREATE  BDAT  F i 1 e_s t r i ngS , Max_dat  !  Open  the  data  file 
ASSIGN  wPath_1  TO  Fiie_stringS 

OUTPUT  '?>Path  1; Star  data(*>  1  Write  aata  to  the  file 


8900  ASSIGN  ®Path_1  TO  *  !  Close  the  data  file 

39 1  0  Nf  i  les=Nf  i  les  + 1  !  Increment  file  name  variable 

8320  Data_count^0  !  Initialize  data  set  counter  for  another  round  !! 

3930  OFF  ERROR 

3340  DISP  !  Clear  the  display  line 

3950  RETURN 
3960  ! 

8980  !  *  Error_tst  * 

9000  ! 

8010  !  This  routine  mill  trap  any  error's  encountered 

9020  !  in  the  data  taking  process. 

9030  ! 

9040  Er ror_tst :  ! 

9050  BEEP  !  Beep  'em  ... 

3060  OFF  ERROR 

3070  IF  ERRN=54  THEN  !  Duplicate  -file  name  error 

9080  DISP 

3090  DISP  "This  file  already  exists,  press  <C0NT>  to  try  again! 

9100  PAUSE 
9110  DISP 


Error  tst 


This  routine  mill  trap  any  error's  encountered 
in  the  data  taking  process. 


!  Beep  'em  ... 

!  Duplicate  -file  name  error  cooe 


3130 
31  40 
9150 
3160 
91  70 


INPUT  "Please  input  initial  file  #  >",Nfil< 


try  again. 


IF  Nf i ies>0  AND  Nfiles<99  THEN 
Max_num_f i les=Max_f l les+Nf i les 
GOTO  Write_data  ! 

END  IF 


3180  ELSE 
9190  IF 
9200  I 

3210  [ 

3220  l 

3230  I 

924  0  f 

9250  [ 

9260  ( 

3270  El5 

9280 
3290 
3300 
9  i  1  0 
9320 
3330 


!  Check  input  for  validity 
!  Input  mas  OK.  nom  write  the  aata 
!  Mass  storage  overflom  error  code 


ERRN=64  THEN  !  Mass  storage  overflom  error  code 

DISP 

DISP  "The  data  disc  is  full,  Please  exchange  it  mith  a  new  one..." 
WAIT  .5 

DISP  "Press  <CQNT>  after  replacing  the  disc  to  continue!" 

PAUSE 


DISP 


GOTO  Write_data  !  Hopefully  the  data  disc  mas  replaced  correctly 

E. SE¬ 
IF  ERRN=80  THEN  !  Disc  NOT  changed  or  not  IN  right  drive... 

DISP 

DISP  "There  is  not  a  correct  disc  in  the  right  disk  drive..." 

WAIT  .5 

DISP  "Press  <C0NT>  after  placing  disc  m  the  right  hand  drive 
PAUSE 


334  0 

DISP 

3350 

GOTO 

Wr i te_data 

3  860 

ELSE 

3370 

!  There  mas  a 

9380 

!  the  problem 

9390 

DISP 

3400 

DISP 

"Unexpected  error  (' 

ob  iem’ 

3410 

PAUSE 

9420 

DISP 

3430 

END  IF 

9440 

END  IF 

3450 

END  IF 

9460 

RETURN 

34  7  0 

f 

9480 

f 

9490 
9500 
'951  0 
9520 
9530 
9540 
9550 
9560 
9570 
3580 
9590 
3600 
9610 
3620 
3630 
964  0 
3650 
9660 
3670 
9580 
3690 
9  700 
3  7  1  0 
9  7  2  0 
3  7  3  0 
9  7  4  0 
9  750 
9/60 
9  7  7  o 
5  7  90 
3790 
9300 
3610 
3320 
9  6  3  Ci 
3:340 
9  3  5  0 

9  360 

9670 
3330 
9330 
9900 
39  1  0 
9920 
93  30 
9940 
3950 
9960 
3970 
9930 
3990 
1  0000 
•0010 
■  0020 
:  0030 
•  0  0  4  Cl 
'  0050 
i  0060 
'  0070 
1  0030 


i rans  error 


This  routine  wi ] 1  display  a  message,  and  beep  at  you 
if  there  was  a  transmit  error.  By  using  the  Menu_f lag 
to  determine  where  the  error  came  from,  a  message  will 
be  displayed. 


rans_er  ror :  ! 

IF  Menu_f  lag=  0  THEN  Err_msg$=‘ 
IF  Menu_flag=1  THEN  Err_msg£=' 
IF  Menu_flag=2  THEN  Err_msg$=' 
IF  Menu_flag=3  THEN  Err_msg£=' 


Menu]  Xmit  Error 
Menu2  Xmit  Error 
Command  Interface  Xmit  Error' 


CUSP 

DISP  Err_msgS 


!  Let  the  user  know  where  the  error  came  from 


Ctrl® BINAND ( 2 . Ct r 1 ) 

CONTROL  12. 2; Ctrl 
Ct  r 1 =  BI NIOR ( 1 .Ctrl) 

CONTROL  12. 2: Ctrl 
F  req 1 =4000 
F  r eq2= 1000 
Bnumber=2 
B  t  i  m e  = .2 

Df req=(Freq2-F  reql > /Bnumber-  1 
FOR  F=0  TO  Bnumber-1 
Bf req=Freql + ( Df req*F ) 

BEEP  Bfreq.Btime  !  Beep 

B 1 1 me  =  B  1 1 me* 5 
NEXT  F 
DISP 
RETURN 


Set_up_tab ie 


This  routine  will  set  up  values  for 
a  command  table. 


Se  t_up_tab  le : 
Ctbief 1 ) =224 
C  tb 1 e  < 2 )  =  1 52 
Ctble<3)-120 
3 tbie(4)=84 
C  t  d  1  e  (  5  >  =  1  8  0 
C  tb i e<  6 ) =204 
C  tb 1 e ( 7 ) =44 
Ctble(8)  =  21  0 
Ctble<9)=50 
C  t  b  1  e  <  1  0  )  =  7  4 
C  tb  1  e <  i  1  >  =  1  72 
C  t  b 1 e  < 12)  =  1 36 
C  t  b  1  e  ( 1  3  >  =  1  0  2 
C tb ie< 1 4 ) =30 
C  tb 1 e  < 1 5 ) =254 
RETURN 


Self  test  ON/OFF 
Disable  current  star 
Enable  current  star 
Track  current  star  &  X, 
Adaptive  Rate  ON/OFF 
Acquistion  ON/OFF/AUTO 
Set  drop  star  criteria 
Get  Tracker  status 
UNDEFINED  as  of  yet 
UNDEFINED  as  of  yet 
UNDEFINED  as  of  yet 
UNDEFINED  as  of  yet 
UNDEFINED  as  of  yet 
UNDEFINED  as  of  yet 
UNDEFINED  as  of  yet 


No_op 


0100 
•  CM  1  0 
1  0120 
:  01  30 
'  0 140 
’  0  1 50 
1  0160 
•0170 
1  0180 
10190 
1  0200 
”0210 
1  0220 
•0220 
1  0240 
'0250 
■'  0260 
’  0270 
'  0280 
’  0290 
'  0300 
1  031  0 
'  0320 
:  0330 
■  0340 
'  0350 
0360 
10370 
i  0380 
1  0390 
'  0400 
'  041  0 


!  Tins  routine  will  be  used  as  a  no  operation  type 

!  subroutine,  if  the  user  inputs  an  invalid  option,  they 

!  will  kicked  into  here,  and  be  advised  of  the  input  error. 

No_op :  ! 

BEEP 

Err_msg$=" 

IF  Menu._flag=1  THEN  Er r_msgS="f rom  Menu 
IF  Menu_flag=2  THEN  Er r_msg$="f rom  Menu  #2 
DISP 

DISP  "INVALID  COMMAND  ENTRY..." 

WAIT  .5 
DISP  Err_msg$ 

WAIT  .5 

DISP 

RETURN 


*  Shutdown 


This  is  the  routine  which  allows  the  user 
to  EXIT  from  the  program, 


Shutdown : ! 

JFF  KEY 
PRINTER  IS  1 
OUTPUT  2: ClearS; 

PRINT 

PRINT  "PROGRAM  TERMINATED..." 
END 


FLOWCHART  OF  THE  STAR  TRACKER  CONTROL  PROGRAM 


! 


i 


i 


H - + 

:  start 

+ - H - + 

i 

a - -t - <r 

!  Dimension  ! 

!  data  arrays  ?■/  ! 

!  string  : 

!  variables  ! 

a - a- - a- 

I 

a - a- - + 

!  Initialize  ! 

!  variable?  and  ! 

1  ?  t  r-  i  n  a  S  ! 

a - a- - a- 


oosub 

Se  t  _  u  p  _  t  a  b  1  e 
( PAGE  60) 


off  key  : 

!  t  U  r n  Off  all  ! 

!  previously  ! 

!  assigned  soft  ! 

1  key  functions  ! 
a - a- - + 


:  »#«•***«•*#«•***** : 

:  menu  t .start  i 
| ****♦###**#**«# ! 

I  } 

!  Set  up  soft  ! 

!  kev  functions  ! 

!  for  Menu  #1  ! 

a- - a- - + 


a- - a- - a- 

Pr  i  or  =  1  a-pr  i  or  ! 
a - a - + 


kO 


UUSUB 

Re..d  i  s p  1  a y 
(PAGE  9) 


v 


Pa^e  1 


G0SU6 

Star  _enab  1  e 
(PAGE  20) 


****«-********** 

MENU2 

*************** 

Display  Menu 
#2  options  & 
current 
conditions 


»*•«•*  at-****  **•»••»»■** 
RE_DISPIAV 
*************** 


!  R<?  d  i  spI  ay  the  ! 

!  current  ! 

!  screen  ! 

+ - + - + 


No  /  IF 

h - <  Menu. f 1  as 

!  \ 


1 


\ 

/ 


a - a - + 

!  Yes 

-t- - - + 

!  GOSUB  : 

!  Nenul.start  ! 

:  (PAGE  1)  ! 


_ _ "V  I 

„•  I 

H - + - + 

No  /  IF  \ 

— <  Menu-t 1  as  -  2 

\  / 


+■ - + - + 

!  Yes 


COSUB 

Menu2_start 
(PAGE  !5> 


!  RETURN  ! 

+■ - + 


***  ****  ******** 
Check_f  1  ss_men  l 
*************** 

Check  and  then 
display  all 
t l ass  tor 
Menu  #1 


COSUB  : 

Ohk_ se l f _  ts  t  ! 
( PAGE  51)  ! 


v 


F'asi?  9 


V 


GOSIJB 

Check.s  tq  r-s 
( PAGE  1 J ) 


GOSUB 

Check .adapt 
<  PAGE  14) 


GClSl  IB 

Check.acpu 
( PAGE  3  6 ) 


GOSIJB  I 
Check. data  ! 
< PAGE  15)  ! 


RETURN 


Rase  10 


**■#■**•#■******•*** 
CHK..  SELF_TST 
»»»»**#»»»»«»»« 


!  Che  c k  and 
!  display  the 
!  se  1  f  test 
i  status 


Position  the 
cursor  at  Toe 
of  self  test 
flas 


!  Ter-jtii  na  1  Output! 
+ - + - / 


■tase  0/  SELECT  \  case  1 

h - <  Se  1  f  _te s  f  _  f  1  a  s>  2 - + 


!  \ 

!  -t- 

I 

i 

+ - + - + 

!  Di 5P. f 1 ! 

I  “  * 

H - H - + 


/  ! 

+  ! 

i 

i 

4. - - + 

!  Pisp_fia9*  ! 

!  On. flap*  ! 


^ - * - + 

!  Print  ! 

!  Disp.flas*  ! 


! Terminal  Output 
+ - + - / 


RETl  IRN 


***< {■*********** 
CHFC-K.  STOPS 
**  *■#**■*  *•»■*****  * 

Check  and 
display  the 
i nd i v i dua 1 
star  status 


v 


fas*  1  1 


Position  the 
cursor  at  1 o c 
of  star  #1 
d  i  sab l ed 


Terminal  Output 
- + - / 


case  0/ 
\ 


SELECT 
Star 1_  f 1  as 


print  "l" 


Tormina!  Output 
- + - / 


\  case  1 


print  “  " 


Terminal  Output 
- +. - / 


P  o  s  i  t  i  o 

n  the 

•T  i  i  r  S  r»  r 

at  loc 

of  star 

#1 

enab 1 ed 

Print  ” 

II 

Ter  mi na 1 

Output 

Position  the 
cursor  at  1 oc 
of  star  #] 
enab 1 ed 
Print  "1" 

Terminal  Output 
- + - / 


Position  the 
cursor  at  loc 
of  star  #2 
disabled 


Terminal  Output 


case  0/  SELECT 

- <  Star2_flas 


Print  "2" 


Terminal  Output 
- + - / 


\  case  t 


Print  "  " 


Terminal  Output! 
- e - / 


V 


V 


p*<?f*  1 


!  Position  the 
!  c  u  r  s  o  r  at  1  o  c 
!  o  f  ?t?r  #2 
!  enabled 
'  Print  "  " 

Terminal  Output 
- + - / 


!  Pos i t i on  the 
!  cursor-  at  lor 
!  of  star  #2 
!  enabled 
!  Print  "2" 

i 

i 

! Terminal  Output 
+ - + - / 


Po si r i on  the 
cursor  at  1  or 
of  star  #3 
disabled 

Terminal  Output 


case  0/  SELECT  \  case  1 

- <  Star3_  flap  > - 

\  / 


Print  "3" 


Terminal  Output 
+ - + - / 


Position  the  ! 
cursor  at  l oc  ! 
of  star  #3  ! 

enabled  ! 

Print  "  "  ! 

_ _ _ l 

i 

Terminal  Output! 
- + - / 


Print  M  " 


Terrriinal  Output 
- + - / 


!  Position  the  ! 
!  cursor  ah  1  or  ! 
:  of  star  «3  ! 

!  enabled 
I  Print  "3"  ! 

i  _  I 

i  f 

! Terminal  Output! 
+ - + - / 


RFTURN 


Pa^e  1 


*#**##*#**##♦## 
CHECK .ADAPT 


!  Check  and  ! 

!  displsv  the  ! 

!  adaptive  rate  I 

!  status  ! 

H - i - + 


Position  the 
cursor  at  1 O  C 

of  adaptive 
rate  flas 


Terminal  Output 
+ - + - / 


case  0/  SELECT  \  case  t 

h - <  Adapt,  rate  > - + 

I  '  /  ! 


- H - +■ 

Di sp.  f l as*  ! 
0ff_flas4  I 

- -f - + 


Di sp_f l as$ 
On_f 1  a?* 


+ - •< - +• 

1  Print  ! 

•  fiis»_f  last  ! 


!  Term  j  r>a  1  Output 


+ - + - — / 

I 

l 

+ - + 

:  RETURN  : 

•i - + 


Pa  se 


14 


H - h 

i  i 

I  OHECK_DATA  ! 

;  ; 

i  i 

■  i 

!  Check  a  n  d  ! 

!  difplav  the  ! 

I  status  of  th<?  ! 

!  data  taking  ! 

!  flag  ! 


Position  the 
cursor  at  1  c* c 
oP  take  data 
f  l  as 


Tormina  1 


Output 
- / 


case  0/  SELECT  \  case  1 

t - £  Ta k _da ta _f 1 ag  > - + 

!  \  /  ! 


D  j sp_f 1 ag* 
Of f _ f 1 ag* 


Pr  int 

Di sp_f 1 ag*- 

n  ti 


! T  o  r  m i n  a  1  0 utput 
+ - + - / 


H - H - + 

!  D j  sp_f 1 ag*  ; 

1  On, flag*  ! 
+ - + - + 


pr  j  nt 

Di sp_  f 1 ag* 


! Terminal  Output 
+ - + - / 


+ - + 

I  RETURN  ! 

+ - + 


Page  15 


+ - + 

!  *■  -IHUHHHHf- ********  | 

:  CHECK.  ACG'U  ! 

!  **«•«-»■** **#*#**#  | 

>  i 

i  i 

!  Check  a  nr)  ! 

!  display  the  l 

!  status  of  the  ! 

1  acquisition  ! 

!  flaa  ! 

+ - + - + 


Position  the 
cursor  at  the 
location  of 
the  acsuisit— 
ion  f 1  a  s 


Terminal  Output 
- + - / 


case  0 / 

SELECT 

\case  1 

+ - < 

Acpu..f  1  a  =• 

> - + 

!  \ 

/  1 

!  +- 
i 

— +  s 

I 

1 

Disp.flap*  ! 

!  Disp.flap* 

=  ! 

1  _ 

"MANUAL" 

!  "AUTO" 

(- - + - + 

I F  \No 

Ai.-pi.i_  type  =  (">  > — 

/ 

+ - + - + 

1  Yes 

+■ - + - + 

Di  sp_f i a??*  ! 


"OFF" 


+• - + - + 

IF  \  N  o 

Acpu..type  =  1  > — 


/ 


!  Yes 

- H - 

Di  sp_f 1 as2* 
"FULL  FOV" 


v 


v 


v 


Pape  1  k 


Acpu_  type 


Ei i  sp.  t'1  a<?2* 


"FULL  EDGE" 


IF  \No 

Acpij  _t vp«a  =  3  > — 


Di pp_F l aspt  ! 


"VEC  EDGE " 


D  j  5  P  1  3  Y 
Dt  $p_f  1  a°i(< 
Di ?p. FI  a e2$ 


Terminal  Output 
- + - / 


RETURN 


*«•****#•#•******* 
SELF_  TEST 


T 099 1  a  the 
pel f  test  f 1  a? 
and  pet  up  the 
variables  to 
be  sent  to  the 
interface  box 


(  DISABLE  interrupts  ) 

(  F  r  |-|IT|  P  o  f  t  ke  VS  1 


V 


Pa9e  17 


!  Se  1  f  _te  s t_f  1  a?  ! 

!  =  1  -  : 

!  Se 1 f  _tes t  _f 1  ag ! 
+ - + - + 


GGSIJ6 

Chk_  se  1  f  _  tst 
( PAGE  1 \ > 


!  I  nter_face=  224! 

H - H - + 


!  Send .mss*  ! 

I  =  ! 
:"Seif  Test  Crod"! 
+ - + - + 


GOSUB 

C:rr»  d  _  i  r*  ten  fa  ce 
(PAGE 


+ 


(  ENABLE  interrupts  > 
(  fr-orri  soft  kfvs  ) 


RETURN 


♦  it************* 

STAR..riJ  SABLE 
■»■  **■*■#■*■**#■*#■■»•*#■* 

Disable  the 
current  star- 
and  change  the 
star  flas  to 
ShOW  Such 
status 


^ - .+ - + 

(  DISABLE  interrupts  ) 
(  from  s  f  t  Levs  ' 

H - : - -  + - + 


V 


Page  IS 


V 


No  /  JF  \ 

- C  C  i.l  rr_st4r-  =  1 

\  / 


!  V^s 

+ - +• - + 

:  Star- l_F  las  =  0  ! 


Nr,  /  IF  \ 

■* - <  Curr.  star  =  2 

:  A  / 


:  y*s 

H - + - + 

!  Star2_f  1  as  =  0  ! 

+■ - + - + 

I 

- _ _ *\  > 


No  / 


\ 


IF 

Cm rr_s+ar 


+ 


\ 

/ 


V<?S 


•' Star3_ti  as  =  0  ! 
+ - + - + 


GO  SUB 

Check. stars 
<  PAGE  11  > 


+ - + - 

I  I ntar _.f ace  =  52 
+ - + - 


+ - + - + 

!  Send.ross*  ! 

!  "Star  Di  sat-  la  "  ! 
+■ - •+■ - + 


^ - H - + 

!  GOSUB  ! 

!  Cind_  i  nterta  ce  ! 

!  (PAGE  3S>  ! 

+• - + - + 


v 


Pas a  IS 


V 

+' 


+ 

!  I  n  t  e  r ..  f  a  c  e  =  ! 

!  Ct- b  1  e  ( Cu r  r  _s  tar  )  ! 


H - + - + 

!  Send.mssi*  ! 

!  "Star  ! 

■( - + - + 


GOSUB 

Cfr>d„iriter  face 
(PAGE  38) 


(  ENABLE  interrupt?  ) 
(  from  soft  i;ev$  ) 


RETURN 


+ - + 

i ###♦***#*#####* ! 

I  STAR_ENARLE  ! 

!  ******•**■■**■•»•***-*  | 

•  I 

I  l 

!  Enable  the  ! 

!  current  star  ! 

!  and  change  the! 

!  star  flas  to  ! 

!  show  such  ! 

!  status  ! 

H - H - + 

I 

I 

+ - + - + 

(  DISABLE  interrupts  ) 
(  front  soft  kevs  ) 


No  /  IF  \ 

- <  Curr_star  =  1 

\  / 

+ - +. - + 

!  Yes 

H - + - + 

! Star l _f 1 =  1 


v 


Paee  3<> 


ADAPT_RATE 

»*###«•***♦#*#** 

Toggle  the  ada¬ 
ptive  rate  f)as 
and  set  up  the 
variables  to 
he  sent  to  the 
interface  box 


1 

1 

(  DISA 
(  fro* 

R 

LE  interrupts 
soft  k  e  v  s 

-1 - 

Adapt.rate.flas! 

=  1  -  ! 
Adapt  _r  ate  _.fiaa! 
- + - + 


GOSIJB 

Check_a  dapt 
(PAGE  14) 


! Inter. face-  180! 

H - • i - + 


!  Send-msa* 

! "Adaptive  Rate" 


!  GOSUB  ! 
!  Cmd_ i nferface  ! 
!  (PAGE  38)  ! 


(  ENABLE  interrupts 
(  fro*  soft  kevs 

H - + - 


RETURN 


( 


I 


✓s 


V 


+ - + - 4- 

/  IP  \  Ye<? 

<’—  1  <  A  c  p  u  _  tv  p  e  <  4> - 

\  / 

+ - + - + 

:  Nr. 


Beep  the 
termi na  1  bell 


■'  Tern. i  nal  Output! 
+ - + - / 


D  i  5  p  1  a  y 
"INVALID  type 
pre?5  <CONT> 
to  trv  a  pair. 11 


!  Term i  nail  Output 
+ - + - / 


■ 

e 


#♦#********#**« 

SEND-ACOU 

*************** 


! I nter. fa  c  e=  ?04 ! 


- 4 - 4 

Send_mp?»*  ! 
"Acpu j ?  j  1 3  on  " ! 


- 4 - 

GOP.UB 

Cmd  _  \  nterfai:® 
(PAGE  30 l 


(  ENABLE  interrupts  ) 
(  from  sort  Levs  ) 


RETURN 


TAKE. DATA 
*************** 


T  099  1  e  the  ! 
take  data  ! 
fU9.  and  set  ! 
up  variables  1 
a  55oc iated  ! 
with  the  com-; 
ent  status  ! 


(  DISABLE  interrupts  ) 
(  from  soft  kevp  ) 

-t - + - + 


!  Ta  k..  da  ta_  f  1  a  a  ! 

I  — -  l 

•  ”  l 

■  J-Tak_dafa„ fias! 


H - + - + 

!  DOS!.  IB  ! 

!  Check .data  ! 

!  (PAGE  15)  ! 


h - +• - + 

/  IF  \  Yes 

<Tak_da ta.f 1  as  =  0  > 

\  / 

+ - + - + 

!  No 

H - + - + 

! Data. count  =  0  ! 

- -( - + 

I 
l 

H - -I - + 

!  Mav_ num.fi 1 es  ! 

I  —  i 

»  —  > 

!  Nf  j 1 ep+Max. files! 

+ - 1 - + 


/  IF  \  No 

<  Nf  i  l  e  s<=Nav_f  i  1  e  s"> - 

\  / 


Yes 

- + 


Pr i nf er  is  1 


(  DISABLE  interrupts  ) 
(  f  r  rr<  so^t  i-e  V  s  ) 


Send_rT'P9$ 


!  "Track  <?.  X •  Y 


GOSUB 

C-md.  i  nter-fa  ce 
( PAGE  38  'i 


!  I  rter-.+'acf  = 

!  Ctb  1  e-  ( Cur  r _s  ta  r  ) 


Send_msp* 
"Star  #" 


GOSUB 

Cmd_i  nterfaw 
( PAGE  38 ) 


■  Inter,  fa  ce=X..  popr  ! 


Se-  n  d  _  m  p  p  $ 


"X  Pop] t inn" 


- H - 

GOSUB 

CT'd.irterf  ac<? 
(PAGE  38) 


!  GOSUB  ! 
!  Crid_interface  ! 
!  (PAGE  38)  : 


t- 


:  I  n  tor  _f  a  ce=Y_POPn  | 


! Jnt*r_^are=  44 


GGSUB  ! 

Cmd_ j nterface  ! 
<  PAGF  38 )  ! 


!  I nter- _f *ce  =  ! 

!  Cfb  1  e  f  Nurri_  t  ?  me s  )  ! 


’."''i'nd  _  ?$ 


:  "Dr-op  data" 


GGSUB 

Cmd _i nt«pf ace 
(PAGE  385 


(  ENABLE  interrupts  ) 

(  fr-CiiTi  5  oft  tevs  ) 


RETURN 


SFT_X  ! 

Query  user  for! 
!  NEW  X  position! 


Clear  the 
display  line 
Beep  terminal 

Terminal  Output 

u - + - / 


U  s  e  r  I  r>  p  u  t 

"Please  i  npijt 
NEW  X 

position  >  " 
read  X_posn 


IF  \  Yes 

1  <  X _  posh  <  257  > - 


Beep  the 
terminal  he H 


Terminal  Output 


D  i  s  p  1  a  v 
" I NVAL T  0  X 
position,  tr- 


Terminal  Output 


****##♦*#*#**#* 

END_:';ET_X 


RETURN 


*************** 


V 


■ 

G 


!  GET. STATUS  ! 

! *************** | 

!  Du tout  set  ! 

!  statu?  cmd  and! 

!  then  set  flaps! 

!  bv  rec,  status! 

H - - + 

I 

I 

+ - + - + 

(  DISABLE  interrupts  ) 
<  from  soft  keys  ) 


!  Inter. face  =  ?10i 


Send_msp$ 
•Get  Status" 


1  GOSUB 

!  Cmd _i nterf are 
!  ( PAGE  38 ) 

A - A - 


/  IF  \  No 

Te  s  t  _ f  1  a<?  =  0  > - 

\  / 

A - + - + 

!  VeS 

+ - A - + 

\Ctrl  =  BINANDM,  Ctrl)/ 
\  CONTROL  I?-?*  Ctrl  / 

\  / 

I  WAIT  , l  ! 


/ - + - + 

/  Get  data  from  ! 

interface  ! 

•  I 

I  » 

STATUS J  ! 

!  STATI.IS2  ! 

!  STATUS3  ! 

A - A - + 


V 


9 


V 


V 


K 


/  Get  data  From 


STATUS* 

STATUS? 

STATUS*. 


/ - + - + 

/  Get  data  tr on> 
i  nter-tace 


STATUS7 

STATUS© 

STATUS9 


/  IF  \  No 

:  STATUS  1=STATIJS*=  > - 

\  STATUS7  / 


!  Yes 


/  IF  \  ves 

!  STATUS!  =  0  > - 

\  / 

H - + - + 

!  No 

+ - + - + 

/  IF  \No 

STATUS 1  <  0  > - 

\  / 

H - + - + 

:  ves 

H - h - + 

:  STATUS 1  = 

!*.55S*.  +  STATUS!! 

+• - H - + 


Print  "Status 
=  ",  STATUS 1 


Terminal  Output 
- + - / 


! Sta  r 1 _t 1  as  =  ! 

!  FUT (STATUS  1  ,  15)  ! 


+ - + - + 

!  S  t  a  r  2._  f  1  a  9  =  ! 

! BIT ( STATUS! , 14 ) ' 

+ - H - + 

V 


F'a=>e  37 


-t - - -r - — 

(  ENABLE  interrupts 

—  f 

) 

- 

(  from  soft  Levs 

- - 4- - 

> 

- 4- 

— 

\  CONTROL  12,2;  Ctrl  / 
\  WAIT  . 1  / 

\  / 

!  Ctrl  =  ! 

!  BTNIOR ( 1 , Ctr 1 l ! 

* - + - + 


\  CONTROL  12,2:  Ctrl  / 
\  / 

\  / 


H - + - + 

I 

I 

+ - + - + 

!  Display  ! 

!  "Send in?  ",  ! 

!  SEND_MSG* ,  ! 

!  "  to  the  ! 

!  tracker  "  ! 


! Terminal  Output 

+ - -t- - / 


/  IF  \ 

Test  _t 1  a?  =  0 

\  / 

+ - + - + 

!  Ye? 

+ - H - + 

:  WAIT  .5  ! 

!  Clear  the  ! 

!  d i ? p 1 9 y  line  i 


■  Terminal  Output 
+ - + - / 


!  RETURN 

+ - + 


+ - 4 - + 

/  OUTPUT  12  US I NON 
C  Inter. face  .. 

\  / 

-t - + - + 

l 

l 

+ - + - + 

!  T  i  u»e_out  ! 

!  TIMEDATE  ! 


+ - H - + 

!  T  i  me  _  o  u  t  { 


!  T  i  me  _mjt  +•  7 


y  ■  1  ■  v*  V*  Vm  .  ■  4  ■ 


K 


T  j  rrift—out  1 

T  j  mo.  oi.it  +  1 
- 1 - 


!  T  j  rr«e- _  f  U9  =  0  ! 
+ - ^ - + 


+ - + - 

! *#**•#•■»■********* 

:  no_ it. again 

!  tHUHHHHHHHUt##*# 


h - + - H 

T ime .vet 
TTMEn«TE 


/  IP  \IMo 

<T  j  (tift _  o  u  t  >T  i  iTie  _ ci  u  t 3  >— — — 
\  / 

H - H - + 

:  y<?  5 

Yes /IP  T ime_Yftt>  \ 

- <  Time, out  OR  > 

\T lmft  _vftt<T imft  .out l / 

+ - — -t - + 

:  No 

H - H - •+• 

Yf-s/IF  Tim«»vet>  \No 

- C  Time. out  AND  > — 

\T im*_vet<T irrift  .nut  1  / 

+ - + 


!  Time. tigs  =  1 


v 


*************** 
CHEOk. TRACKER 
************** 


WAIT  1.0 


.>+ 


P<?  40 


wmJU  k. 


V 


\ STATUS  12.5; Tkr. Status/ 

\ - / 

\  (Set  tracker  / 

!  status  frnm 
!  the  interface  )  ! 


Tkr -.command  = 

Ft J NANDO-  Tkr.status  ) 
+  10 


case  10/  SELECT  \case  1 


Tkr_ comma nd 


GO  SUP 
Get. da  ta 
(PAGE  40 i 


:  C:trl=  ! 

:pinand(2,  ctr-n  : 


\  CONTROL  12,2?  Ctrl  / 
\  / 

\  / 


!  C  t  r  1  =  ! 

! P  T  N I OR ( 1 .  Ctrl)! 


\  CONTROL  12.2;  Ctrl  / 
\  / 

\  / 


GO  SUP 

Tran?,  e r r  O r 

( page  57 ) 


! case  1  1 


GOSUP 

T  ra  np_error 
(PAGE  57) 


GOSUB 
Ge  t_da  ta 
(PAGE  43) 


Ps  41 


»*«*****«- «-«-**** 
GET_DATA 

iHHHHHUHUHHHf*** 


Recieve  and 
d  ?  fplav  the 
star  data 


(  DISABLE  interrupts 
(  fr-CiTi  sott  Levs 


No/  IF  \ 

• — <  Test^tlae  —  0 
\  / 

H - +■ - + 

!  Ves 

+ - +• - + 

!  Ctrl  ! 

1BINANDM.  Ctrl)! 

-t - + - + 

I 

I 

+ - ^ - 

\  CONTROL  12,2;  Ctr 
\ - 

\ 


1 

/ - +- 

Get  StarJ.x,  ! 

Star  1 _v. 

and  ! 

Star  1 _m 

frcKTi  ! 

the  tracker 


/ - + - + 

/  Oet  Star2_x,  ! 

!  Star2'_v,  and  ! 

!  Star2_rri  frotri  ! 

!  h(-<e  tracker  ! 

+ - + - + 

I 

l 

/ - + - + 

/  Get  Star?..*,  ! 

!  StarS _v ,  and 
!  ':tar  :":_iri  from 
:  t  h  <?  tracker 


\  No 


/ 


65536  +  Star  1  _x  ! 
- + - + 


IP  \  No 

Star  1 _v  <  0  > - 

/ 

- + - + 

!  Yes 

- + - + 

Star  1 _y  ! 

65536  +  S t a  r l _ v ! 


JP 

>tarl_ir>  <  0 


\  No 
/ 


!  Yes 

- - + 

Star)_rr>  ! 

65536  +  S  t  a  r 1 _m ! 


- H - + 

IP  \  No 

Star2_x  <  (')  > - 

/ 

- + - + 

:  Y«&s 

- -* - + 

Star2_x  ! 

__  l 

65536  +  Star2_v| 


IF  \  No 

Star  2  _ y  <  0  > - + 

/ 

- + - + 

!  Yes 


V 


V 


P%9<?  44 


Starl-x  / 


■>6  : 
- + 


i 


a 


0 


V 


V 


V 


V 


+ 


+- 

— 

— 

1 

S*ar 1 _  y 

s 

1 

1 

Star  1 _Y 

/ 

256 

+- 

1 

— - 

+- 

I 

— 

1 

star  1  _rr> 

= 

1 

1 

Star  l_rri 

/ 

256 

+- 

— 

— 

!  Star-2_x  =  ! 

!  Star-2 /  256  I 

H - + - + 

i 

i 

+ - ^ - + 

!  Star2-.v  =  i 

!  Star2..Y  /  256  1 

+ - H - + 

I 

I 

+ - . - + - + 

!  St-ar2_iTi  =  ! 

!  Star-2. m  /  256  ! 

+ - 1 - + 

I 

I 

+ - + - + 

!  Star3. v  =  ! 

!  Star- 3.x  /  256  ! 

+ - + - + 


!  StarS. y  = 
i  Star  S  _v  /  256 


!  StarS.iri  =  ! 

!  Sta  r  3_m  /  256  ! 


+ - + - + 

!  StarJ.x  = 

!  11  +  Pa^a-Count ! 

+ - -i - +• 


V 


V 


F'aa*  4^ 


Sta  r 1 _v  =  ! 

12+  Data_count ! 


Star  1  _ IT*  =  ! 

13+  Da  te  _ count ! 


- + - +  v 

Star2_x  =  ! 

14+  E*e  ta_count !  I 


Star-2_v  =  ! 

15+  Da  ta_count ! 


- + - +  v 

Star2_fTi  =  !  ! 

16+  Data.count !  ! 


Star3_x  =  ! 

17+  Data.count ! 


- + - +  v 

St  ar-3_  y  =  !  ! 

13+  Data._count!  I 


Star-3,  iti  =  ! 

19+  Data. count ! 
- + - + 


Datat  * 

( 3600  •>  Hour  + 
60  *■  Minute  + 
Second  — 
TIMEDATF.  )  + 
APS ( Da  tat  1 


Data. time  = 
TTMEDATF  + 
Da  ta  t 


v 


V 


V 


\ 

c» 

/ 


V<=.g  / 

IF 

\ 

- <  Tak_da ta_f 1  as 

=  0> 

\ 

/ 

4~ 

- 4* 

:  Me 

-t*- 

- i - 

- 4- 

i 

i 

nata_cc<unt 

_  2 

i 

i 

1  +  Data- count ! 

4~ 

I 

- 4 

4-- 

l 

- 4- 

Nri  / 

IF 

\ 

- c 

Data.co  u  r>  t 

<=  > 

\ 

Max_dat 

/ 

4— 

- + 

H - 

!  Yes 

!  Star  _  data  ( Data  .count .  1  > 

!  Start.v  ! 

H - H - + 


!  Star -data  ( Oata_cmjr.t  ■.  2 1  ! 

!  Star- 1  _v  ! 

H - + - + 


!  Star_data<0ata_coijnt-3> 
Start -m 


v 


i  Star -data (Data_count* 


= 

l 

l 

Star2_v 

l 

• 

Star  _data  ( Da  ta_count »  6) 
Sta.r-2-fTi 


-( - H - + 

I 

I 

H - 4- - + 

!  Star  _da  ta  <  Uiata_cr.ijr<t -  7 )  ! 


Star-3  _v 


'-f 


P^«e  A 9 


Star  _data  ( Data -count  *  S )  ! 


Star3_Y 


Sta r_data ( Data .count  -  9 l  ! 


Star-3  _m 


Star  -  data  f  Da ta_count 10  > 


Hour 


!  Star-  _da  ta  (  Data.count  *  1 1  ) 


M 1  n  IJ  t  e 


Position  the 
cursor  at  loc 
o-f  Disp'av 
set  number 


Terminal  Output 
- + - / 


/  JF  \  No 

Data  ..count  >  0  > - 

\  / 


!  Yes 


D  i  s  p  1  a  v 
Data-count 


Terminal  Output 
- + - / 


v 


V 


V 


Pa9e  50 


/  IF  \  Nc 

<  nata_count  =  o  > - 

\  / 

+ - + - + 

Yes 

+ - + - + 

D  j  s  p  l  a  y 


Terming!  Output 
- + - / 


/  IF  \  No 

riftta_^c>unt  =  > - 

\  Max_dat  / 

+ - + - + 

!  Yes 

+ - + - + 

:  GORUB  ! 

'  Write_.data  ! 

!  < PAGF  52)  ! 


v 

> :  <- 


v 

I 

I 

-  + 


- + 


!  ft*#####*****#** | 

!  END  _GET_.DAT  A  ! 

!  *************** 

- - + - + 


(  ENABLE  interrupt?  ) 
(  froiT.  soft  kev?  ) 


+ 


-t- 


RETURN 


' 

.. 

l-'-J 

'  '  i1 

•3 

'  1 

’  J 

-A 

~~  •  -3 

•  I 

.  ’  1 

51  ,*  *| 

.A 
•4 

d 

-  i 


i 


'  WRITE- DATA 
##■■«■•»•■«■  •**■•#•***■«■■»•*  # 

Write  the  star 
data  to  the 
output  tile 

- -H - 


ON  ERROR 
GOTO 

Error-  _tst 

(trap  anv 
errors  that 
inav  occur  in 
this  routine) 


Number® 
VAL*(Ntj 1 es ) 


!  Fi 1 e_  str i op* (6) ! 

!  =  Number®  ( t ) 

- -v - + 


Disb] av 

"Wr i t i  ns 

da  ta 

to  tile 

\  M 

J 

Nt  i l es 

Terminal 

Output 

MAS'?.  STORAGE 
IS... 

assign  the 
rjpht  disc 
drive  tor  data 


v 


Page 


#♦*#*#*#»**»*** 
ERROR'.  TST 
*************** 
Trap  anv  ?rrs 
that  occur  in 
the  data  tak¬ 
ing  area 


Peep  the 
termi nal  he  1  1 


Ter-minal  Output 


OFF  ERROR 


turn  off  error 


DisPlav  "Thi 
file  ai readt 


Terminal  Output 


ROUSE 
Clear  the 

display  line 


Terminal  Output 


User  Input 


*P1 ease  input 
initial  data 
file  #  >  " 


Read  Nfiles 


V 


Displav  "There! 
i  s  n  t  a  c  r  -  ! 

r- e c t  disc  in  ! 
the  r  i  p  h  t  ! 

drive"  I 


Terminal  Output! 

- + - / 

I 

i 

- H - + 

WAIT  .5  ! 

Hippie  v  ! 

"Press  <CONT>" ! 


Terminal  Output 
- + - / 


PAUSE 
Clear  the 
di pel av  l i ne 

ITerrr.inai  Output 
+ - + - / 


+ - + - H 

GOTO 

Wr i te_da  ta 
(PAGE  52) 

t - H 


D  i  s  p  1  a  v 
" Unexpected 
error. . , " 

Terminal  Output 
- + - / 


PAUSE 
Cl  ear  the 
display  line 

Terming]  Output 


RETURN 


V 


V 


I  Err_m5?$  !  ! 

!  "Command  ;  ! 

!  Interface  !  ! 

!  Xrp  j  t  e  r  r-  i-i  r "  !  ! 

+ - + - +  ■ 

I  I 

I  I 

!  < - + 

-< - + - +. 

!  Clear  the  ! 

!  display  line  ! 


! Term  j na 1  Ou t  pm  t 
+ - + - / 


Display 
Er r_msp4 


! Terminal  Output! 
+ - + - / 


I  Ctrl  =  ! 

!  BINANDf  2-  Ctrl)! 


\  CONTROL  12-2!  Ctrl  / 


\ - / 

\  / 

j  j 

i  i 

H - -+ - + 


!  Ctrl  =  ! 

! B I N  J  OR ( 1  -  Ctrl)! 

+ - H - + 


+ - H - + 

\  CONTROL  12-2?  Ctrl  / 

\ - / 

\  / 

I  I 

i  • 

I  I 

»  I 

+ - + - + 


!  Freal  =  4000  ! 


+ - + - + 

!  Frep2  =  1000  ! 

4- - -I - + 

I 

I 

V 


Rase  5 


Bn umber 


Btime  = 


!  Dfrep  =  <Fre*2\ 

!  -  Fr*M  )  /  ! 

!  Bn umber  ! 

H - H - + 


!  F  =  0  ; 

+ - H - + 


+ - + - + 

!  BtreS  =  Fr-e-ql  i 

!  +  (D'freq  *  F)  I 


BEEP  the 

term i na 1 

be  l  1 

&  Btre** 

■for 

Bt  i  me 

Terminal 

Outeut 

- / 

F  =  F  +  1 


IF  \ 

F  =  Bnumber  -  1 

/ 


+ - + - + 

!  v*s 

+ - H - + 


!  Clear  the  ! 

!  d  i  ?  p  1  a  v 

line  ! 

I 

!  T ermi na 1 

Output ! 

+ - + - / 

I 

I 

+ - + - + 


+ 


RETURN 


i  *#*•*•***•»•*■»•*••»■#■#*  | 

:  set_up_taple  : 

!  ■it-******  | 

I  I 

!  Set  up  the  ! 

!  values  tor  a  ! 

!  command  table  ! 

f - H - + 

I 

I 

i - + - + 

Ctble  f 1 >  ! 

2?4  I 


Ctb 1 e ( 2 ) 
120 


Ct  h 1 e ( 6 ) 
204 


Ctb 1 e ( 7  > 

44 


Ctblef S) 
210 


v 


Pa?e  60 


CtbleCR) 


50 


1 

1 

1 

1 

1 

1 

1 

1 

Ctble(lO)  ! 

;*  ; 

i 

i 

1 

1 

1 

1 

1 

CtblefJl)  1 

1 72  ; 

1 

1 

1 

1 

1 

• 

136  ! 

1 

» 

1 

1 

1 

1 

CtblfU3)  ! 

102  ! 

1 

1 

1 

• 

1 

1 

1 

1 

Ctbl*ri4)  | 

30  ! 

1 

i 

1 

1 

1 

1 

1 

1 

ctbifUfo  : 

254  : 

1 

1 

1 

1 

RETl  IRN  ! 

Pa?e  61 


■***■»■  **«•**■•(■•«■  * 
NO.  OP 

*************** 
If  the  user 
input?  an 
INVALID  comm¬ 
and,  ,  , 


!  Beep  th* 

!  ter-mi  ne  1  hell 
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PROGRAM  PLOTXY 


nr  it  ten  by  Kris  Parrish 


DIM  Sd< 1 00 , 1 2 ) , Read_st r ing$[ 
DIM  F i le_str ing$t 7 ] »Disk_str 
DIM  Plot_x< 1 00) .Plot_y< 1 00) , 


INTEGER  I 
Data_count=G 
Max  dat=20 


Max_num_i 
Nt  i  ies  =  G 


les  =  5 


ri  le_stnngS  =  "FILE_" 

D i sk _s t  r ingS  =  ” : HP82901 .700,1 
Reao_str  ingS="FILE_0  :  HP8920  1 
CiearS=CHRS(255)6CHR$(75> 
Inv_of f  =  1 28  ! 

Inv  on=129  ! 


20  ]  ,  C 1  earS>[  2  3  .  D  i  sp_t  lag$[  8 1  .  D lsP-msgS!  60  ] 
:ing$[ 14] .Of f_f lagStSi .On_f lagS[81 .Titles [35 
,  T est_data( 100) 

For  loop  counter 

Used  for  writing  star  data  to  file 
Maximum  ft  of  aata  sets  for  a  single 
write  to  a  data  file. 

Maximum  number  of  data  files  allowed 
String  designator  for  concatenation 
of  data  file  name,  to  be  used  for  mult 
data  files 


,700,1“ 

Code  for  video  attributes  OFF 
Code  for  inverse  video  ON 


Of  f_f  lagS="0N/"4CHR$(Inv_on)a"0FF"&CHR$(Inv_Off  > 
Qn_f lagS=CHRS( Inv_on>&"ON"&CHR$< Inv_of f >6“ /OFF” 


Star 1_f iag=G 
Star2_f lag  =  0 
Star 3_f lag  =  0 
Data_read=0 
P r i nt_graph=0 
X_m i n imum=9993 
X__max  l  mum  =  -9999 
Y_m i n imum=399S 
Y_max  lm uni  =  -9999 
DEG 
GIN  IT 

GRAPHICS'  ON 
PRINTER  IS  1 


!  Plot  star  *1  OFF 

!  Plot  star  ft 2  OFF 

!  Plot  star  *3  OFF 

!  Show  that  a  data  file  hasn't  been  read  yet 

'  Send  current  graph  to  printer  OFF 
!  Initialize  Min  and  Max  values 


!  Initialize  graphics  stuff. 


Main  menu 


)e  t i ne  and  oispl ay  soft  key  f  unc  t i ons 


Mai n_menu : 
ON  KEY  0 
ON  KEY  1 
ON  KEY  2 
ON  KEY  3 
ON  KEY  4 
ON  KEY  5 
ON  KEY  b 
ON  KEY  7 
ON  KEY  8 
ON  KEY  9 
OUTPUT  2; 


LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
LABEl 
LABEL 
LABEL 
LABEL 
LABEL 
C 1  earS> 


"Re~d 
"Star 
“Star 
"Star 
"Data 
"X  vs 
"X  vs 
"Y  vs 
"Dump 
"EXIT 


isplay".j  GOTO  Red i sp_screen 
*V'  ,3  GOSUB  S tar_1 
t>2"  .  3  GOSUB  Star_2 
*3". 3  GOSUB  Star_3 
file  ft"  .3  GOSUB  Data_f  i  le 
Y"  .  3  GOSUB  X_vs_y 
Time", 3  GOSUB  X_vs_time 
Time".  3  GOSUB  Y_  _vs_t  ime 
Graph", 3  GOSUB  Pr i nt_grapbi cs 


.3  GOTO  Shutdown 


•\jm  yry  ',*  ■  u  11  it*  j  I 


•  r<;  «  * '  *  ; 


K . 


si  o 
S20 
S30 
340 
650 
t>30 
b  70 
68  0 
390 
7  00 
710 
720 
730 
"40 
750 
c«0 
7  70 
7  SO 
7  90 
300 
S 1  0 
-020 


Menu._i.oop 

Display  menu  options  on  the  screen 

Menu._i  oop  :  ! 

CONTROL  1  ;  3 1  , 1 

PRINT  "PLOT  PROGRAM  MENU" 

CONTROL  1:30.3 

PRINT  "kO  Redispiay  Screen  (Clear  Graphics)' 
CONTROL  1:30.4 
PRINT  "L  I  Star  *\  " 

CONTROL  1:30.5 
PRINT  "k2  Star  #2  " 

CONTROL  1:30,6 
PRINT  "k 3  Star  #3  " 

CONTROL  1:30.7 

PRINT  "k 4  Data  File  «  " 

CONTROL  1  ;  30 , 8 
PRINT  "kS  X  vs  Y  " 


330 

CONTROL  1:30.9 

;•  3  4  0 

PRINT  "k 6  X  vs  Time  " 

b  250 

CONTROL  1:30.10 

8  3  0 

PRINT  "k  7  Y  vs  Time  " 

-  370 

CONTROL  1:30.11 

960 

“‘RINT  "k&  Dump  Screen  Graphics 

9  9  0 

CONTROL  1:30.12 

900 

PRINT  "  to  Printer" 

-  9 1  0 

CONTROL  1:30.13 

N  320 

PRINT  "k9  Exit  Program" 

9  3 1 
34  0 
950 
93  0 
9  /  0 
360 
990 
'  0  0  0 
:  0  1  G 
’  020! 
1  030 
:  040 
050 
'  060 
'  U  7  0 
■  080 
'  090 
1  i  00 
'  •  1  0 


’  40 
150 
'  30 
1  70 
*  - ; ( j 

1  90 
200 


ijOSUE  Check _ f  lags 

GOTO  Menu_loop 


Check _f lags 


Check  the  status  of  the  flags  displayed 
on  the  screen. 


Check_f lags :  ! 

CONTROL  1:42.4 
SELECT  Starl_flag 
CASE  0 

Disp_f  lagS  =  Qf  f_f  iag$ 
CASE  1 

Disp_f lagS=0n_f IagS 
END  SElECT 
PRINT  Disp_flagS 
CONTROL  1:42.5 

SElECT  Star2_flag 
CASE  0 

D  isp_f  lagS>  =  Of  f  _f  IagS 
CASE  1 

Disp_f lagS=On_f IagS 
END  SELECT 
PRINT  Disp_flag$ 

CONTROL  1 : 4  2 . b 


liar  *1 


I  c 


tar  *\ 


Star  *3 


A 


210 
220 
230 
24  0 
250 
2  GO 
270 
280! 
290 ! 
300! 
310 
320 
230 
340 


SELECT  Star 3_f  lag 
CASE  0 

Disp_f lag$=Gf f_f lag$ 

CASE  1 

Disp_f lag&=Gn  f lagS 
END  SELECT 
PRINT  D isp_f lag$ 

DATA  FILE  *  (  Enaoled-Fi le  read.  Disabled-  File  not  read) 

CONTROL  1:46.7 
IF  Data_read=1  THEN 
PRINT  "[";Nf  lies;1'] 

ELSE 

PRINT  "  Disabled-  file  not  read" 

END  IF 
RETURN 


'  390 ! 
400  ! 
4  10! 
420  ! 

4  30 ! 
44  0  ! 
450  ! 

4b  0 

470 
4 '30 
490 
500 
510 
520; 
530 
54  0’ 

5  5  0 ! 
5G0 ! 
57  0! 
j  3  0 ! 
5  9  0 ! 
GOO! 
610! 
320  ; 
530 

G  4  0 
550 
o  t>  0 

G  7  0 
68  0 
590 
7  00 
7  1  0 
720 
7  30 
740 


790 
30  0  ! 


Data  ( i 1 e 


Get  Uber  input  as  to  which  data  file 
to  use. 

lj  a  t  a _ i  1 1  e  :  ! 

BEEP 

iNPUT  "Please  input  file  #  >  ".Nfiles 
IF  Nf i ies>  =  0  AND  Nfiles<=99  THEN  Input  ok 
BEEP 

D i sp_msgi= " I nval id  file  #  "&VAL3 ( Nf i 1 es > &"  Please,  try  again  ! 
GO SUB  Out_msg 
GOTO  Data  rile 


Input_oF 


Open  and  read  data  file,  filling 
tne  array  with  the  star  values. 

nput_ok :  ! 

UN  ERROR  GOTO  Error__tst 

NumDe r S  =  VALS< Nf i les  > 

F  i  i e_s t  r  i  ng$[  G  1  =  Number S [  ] 

HASS  STORAGE  IS  " : HP8290 1  .  700  ,  1" 

ASSIGN  ®Pa.th_1  TO  File_string$ 

DISP  "Opening  file  >  "  :  F 1 1  e_s  t  r  mg$ 
Read_s  t  r ingS  =  F i le_st  r ing$&D isk_s t  r l ng$ 
ASSIGN  i?'F_1  TO  Read_s t r  i ngS 

ENTER  '§) F _ 1  ;  Sd<  *  ) 

DISF  "File  read  completed" 

Data_read= 1 

ASSIGN  '§< F _ T  TO  * 

WAIT  1 
DISP 

OFF  ERROR 
RETURN 


!  Any  file  errors  are  taken 
!  care  of  m  this  routine... 

!  Set  up  for  concat .  of  filename 
!  Create  file  name 
!  Designate  rt  drive  for  data 

!  Let  user  know  what's  going  on 


Read  in  the  data 

Let  user  know  it  is  done 

Show  Data  has  been  read. . . 

Close  the  data  file 

Delay  so  user  can  read  message 

Clear  d l sp lay  line 

Turn  off  error  trapping 

Done ! 


s :  o ! 

320! 
y  j  o ! 

880 ! 

■:>c i 
*_<  _>  v  . 

860! 

870! 

880  Er 


:o7o 
.030 ! 
.  090 ! 
."!  CM'  ' 

: :  •  o ! 

.'  2C  ! 
.’30! 
;  ■  a  o  ! 


error  tst 


This  is  used  for  testing  of  data  file 
errors . 

ror_tst :  ! 

OFF  ERROR 
B  E  E  P 

IF  ERRN=56  THEN 

DISP  "File  #  ";Nfiles;"  does  not  exist,  press  <C0NT>  to  continae' 
PAUSE 
El.SE 

IF  ERRN=80  THEN 

DISP  "Disc  not  changed  or  NOT  located  in  the  right  hand  drive, 
WAIT  .5 

DISP  "Press  <C0NT>  after  placing  correct  disc  in  right  drive" 
PAUSE 
ELSE 

CONTROL  1 ; 1 ,28 

"’PINT  "Unexpected  error  <";ERRN;">  consult  list  of  errors" 

PRINT  "and  correct  problem...  press  <CQNT>  to  try  again!" 

PAUSE 
END  IF 
END  IF 

GOTO  Data  file 


X_vs_y 


lot  X  position  vs  Y  position 


2 ' j 0  X_vs_y : ! 

_ ’ oO  I7  Data_read=0  THEN  !  A  data  file  hasn't  been  read  in  yet 

2' 70  D i sp_msgS  =  " You  must  first  read  in  a  data  file  before  you  can  plot... 

_  ’  80  GUSUEi  0ut_msg 

2 1 9 0  RETURN 

2200  END  IF 

2210  OUTPUT  2: ClearS: 

2220  FRAME 

_-30  WINDOW  -  5 , 2 70  , -5 , 2 70 

2280  AXES  2. 2. -5. -5. 5.5, 5 

2250  Npts=0 

2260  r0P  1  =  '  TO  100 

-2  7  0  IF  Sd<I.i0>  =  0  AND  Sd(I.M>-0  AND  Sd  C I  .  *  2  >  =0  THEN  2300 

-230  Npts=Npts+l 

2290  NEXT  I 

-300  IF  Npts=0  THEN 

2  2*0  Np  ts= ’ 

2220  END  IF 

2  330  ! 

2280  ’  -AE:El  'HE  X  AXIS 

2  350  ' 

_2t>0  X_max imum=260 

2270  Step_size=20 

.  -.80  X_of  f  se  t  =  1  0 

2890  GOSUB  Labei  x 

2800  ’ 


4  !  o 
420 
430 
_440 
45  0 
-460 
4  7  0 
480 
490 
-50  0 
..510 


!  LABEL  THE  Y  AXIS 

* 

Y_max i mum =260 
Step_s i ze=2G 
Y_of f  se  t  =  1  2 
GQSUB  Label_y 

t 

'  ^ABEL  THE  PLUT 

» 

~itie$="X  vs  Y  from  "&F i le_st r rngl 
Locat i on_x  =  137 
Locat i on_y=255 
GQSUB  Label_piot 

t 

3“  otar ' iag=0  THEN  Plot_star_2 
FOP  1=1  TO  Npts 

^‘iot _ x<  I  >=Sa<  I  .  1  ) 

F‘  iot_y  <  I  >  =Sd(  1 , 2  > 

NEXT  1 

L i ne_type= 1 

_ ; ne_ 1 ade 1 S= "STAR  #1" 

GQSUB  Plot  star 


Plot  star  2 


: o  t_s  tar_2 : ! 

IF  3tarl_fiag=0  THEN  Plot_star_3 
FOR  1=1  TO  Npts 

P 1 o t_x  < I )  =  Sd< 1 , 4 ) 

P iot_y ( I ) =Sd< I . 5 ) 

NEXT  J 

l i ne_tyDe=5 

_ : ne_ i abe 1 S  = "STAR  »2" 

GQSUB  Plot  star 


7  9  f: ' 
30  0  ' 
3  ■  0  ' 
320  ; 
330 
340 


330 
990 
300 
310 
920 ! 
930 ' 

.  940  ' 
350* 
360  ' 
370' 
980! 
390  ; 
000 


*  Piot_star_3 

o  t _s  tar _3 : ' 

F  Star3_f lag=0  THEN  RETURN 
-OR  1=1  TO  Npts 

P 1 o  t_x ( 1 ) =Sd < I  .  7  ) 

1  o  t_y  ( 1 )  =  Sd<  I  ,  3  ) 

NEXT  I 

l.  i  ne_type=  3 

L i ne_l aoe 1 S= "STAR  t3" 

GQSUB  F’lot_star 

RETURN 


Star 


ogg  it-  star  *  1  Mag 


t  j  r  *  ' 


3 1  a  r 1 1 ag= 1  - S  tar i _f 1 ag 


RETURN 


l  i  l: 
020! 
030! 
040  ! 
050  ! 
ObO! 

0  70! 
030  ! 
090  S 

:  oo 
'  i  o 
120! 

‘  20 ! 

'  40 ! 


'  31 


Toggle  star  -2  flag 
ar_2 :  ! 

$tar2_f lag= 1 -Star2_f lag 
RETURN 


Star 


'oggie  star  “'6  flag 
ar_2  :  ! 

Star 2_t lag  = \ -$tar3_f iag 
RcTURN 


*  X_vs_time 


4 


-  .  !  -’.ot  X  position  vs  time 

■'  t 

-  - .  line  :  ! 

Ir  Data_read=0  THEN 

S : sP_msgS=" You  must  first  read  in  a  data  file  before  you  can  plot..." 
NO  SUE!  Uut_msg 
.  .  n  E  1 J  R  N 

ENL  Ir 

-  . '  2  :  Clears : 

~HMME 

.  UN"  ROL  *  ;  20  ,  1  6 

•“IN'  CHRS.  (  Inv_on  )  <j"De  term  i  n  i  ng 

*_ max. mum =-9999 
'-j.  >  _m  i  r.  i  mum  =  9995 

u  *  ..  Nr.  ts  =  0 

4_2  "OR  ;  =  ■  TD  100 

-20  lr  3d <  I  . ’ 0  )  =  0  AND  Sd<1.1!)*0 

cp'  Np  t  s  =  Np  t  s  +  1 

’ es :_oat  at  I >  = Sd ( I . i 2 >  +  ( 60+Sd< I  .  1 1  )  > 
e-.l1  ir  X_max  i irium<  Tes  t. _da t a<  I )  THEN  X_max  imum=  Tes  t_data(  I  > 

A  7  0  _  1;  X_m i n i mum> 7 es t_data< I )  THEN  X_m  l  n  i  mum  =  Tes  t_data(  I ) 

4 C  N  •_  >  ’  1 

4  b  U  .  -  N  p  *  s  x  1 J  T  H  E  N 

j  0 r  Nr  t  e  = 

5  ’  5  i  _  m  a  x  .  m  urn  =  3  U 

52 1.  >  _r.  l  r.  i  nijiii'  =  0 

57c  END  ;r 

5+N,  <_nax  .  mum’  X_max  j  mum +  20 
550  nlNDO*  Xm i n i mum . X_max i mum . - 5 . 2 7Q 
5  o 1  e X i  .j  _  .  _  ,  X_m ;mm uni ,  - 5 . 5 , 5 , 5 

l  ;  f.  \ 

Sol  '  _ ape .  tne  X  an ;S 

b  •  j  (  I 


MINIMUM  and  MAXIMUM  val ues“4CHRS ( Inv_of f 

!  Initialize  Maximum  value 
!  Initialize  Minimum  value 

* 

AND  Sd( I . 1 2) =0  THEN  3490 


. -Ian, . tkk±d 


Step_si ze  =  1 0 
X_of f set=1 5 
GOSUB  Label  x 


3600 

3610 


3620 

3  630 

t 

GOSUB  Labei_x 

3640 

t 

i_a£>el  the  Y  axis 

3650 

♦ 

3660 

Y_max imam =260 

3670 

Step_s i ze=20 

3680 

Y_of  f  se  t  =  X_m  i  n  imum  + 1  5> 

3690 

GOSUB  Label_y 

3700 

• 

2710 

1 

Label  the  plot 

3720 

♦ 

2730 

Titie5*="X  vs  TIME  from  "&F  1  le_string$ 

|740 

Locat  iori_x  =  X_mirumum  +  1  25 

2  7  S  0 

Locat ion_y =255 

3760 

GOSUB  Labe l_p lot 

3770 

♦ 

3780 

♦ 

START  PLOTTING... 

2790 

f 

2300 

CONTROL  1:20.18 

281  0 

PRINT  " 

3820 

IF  Star1_flag=0  THEN  Piot_x_star2 

2630 

FOR  1=1  TO  Npts 

884  0 

Plot  x(I>=Test  data<I) 

2850 

Plot  y< I >  =  Sd ( 1,1) 

2860 

NEXT  I 

2870 

L l ne_type= 1 

3  o  8  0 

Line_label$="STAR  #1" 

2830 

GOSUB  Plot_star 

3900 

3310! 
3320! 
3930  ! 
2940 ! 

2  95  U  P 
..  9 1>  0 
2970 
2360 
2990 

■^ocio 

401  0 
4  020 
4  030 
4  04  0! 

4  0  5  0  ' 
4060* 


Plot  x  star2 


ot  x  star 2 : ! 


IF  Star2_flag=0  THEN  Plot_x_star3 
FOR  1=1  TO  Npts 

Plot_x<I)*T est_data( I ) 
Plot_y(I)=Sd(I.4) 

NEXT  I 

L l ne_type=5 

l.  me_lat>e  1$="STAR  #2" 

GOSUB  Plot_star 


Plot  x  star 3 


4080 ! 

4090  ° 1 o t_x_s tar 3 : ! 

4100  IF  Star3_flag=0  THEN  RETURN 
4 1 ! 0  FOR  1= 1  TO  Npts 

4120  Plot_x < I ) =Test_data< I ) 

4! 30  P 1 o t_y i I ) =Sd< I , 7 ) 

4140  NEXT  I 


4  !S0  ine_type=3 

4160  L  i  ne_  1  abe  1  $  =  "S>TAR  #3" 

4  "  ,’0  GOSUB  Plot_star 

4180  RETURN 

4130! 


4200! 
4210! 
4220 ! 
4230 ! 
4240! 
4250! 
4260  Y 
4270 
4280 
4290 
4300 
4  310 
4320 
4330 
4  34  0 
) 

4  350 
4360 
437  0 
4380 
4  290 
4  400 
44  1  0 
4420 
44  30 
4440 
4450 
4  460 
4470 
4460 
4490 
4500 
4510 
4520 
4530  ! 
454  0  ! 
4550  ! 
4560 
4570 
458  0 
4  b  3  0  ! 
4600  ! 
4610  ! 
4  6  2  0 
4  p  3  0 
4640 
4650 
4660  ! 
4670  ! 
4680  ! 
4690 
4700 
47  !  0 
4720 
4730  ! 
4740  ! 
4750  ! 
4760 
4  7  70 
4760 


Y  vs  time 


Plot  Y  position  vs  time 
vs_t  line :  ! 

IF  Data_read=0  THEN 

Disp_msgS="You  must  first  read  in  a  data  file  before  you  can  plot..." 
GCISUB  Out_msg 
END  IF 

OUTPUT  2;Clear$; 

FRAME 

CONTROL  1 ; 20, 18 

PRINT  CHR$( I nv_on) A "Determining  MINIMUM  and  MAXIMUM  val ues"dCHR$ ( Inv_of f 

X_max imum=-9999 

X_minimum=9999 

Npts=0 

FOR  1=1  TO  100 

IF  Sd ( 1 , 1 0 ) * 0  AND  Sd< 1 , 1  1  >  =  0  AND  Sd(I.12)  =  0  THEN  4450 
Npts=Npts+1 

Tes t_data< I>=Sd<I.12)+(60*Sd<I,11)) 

IF  X_max imum<Test_data( I >  THEN  X_max imum= Tes t_data( I > 

IF  X_mirumum>Test_data<  I )  THEN  X_minimujD=Test_data(  I ) 

NEXT  I 

IF  Npts=0  THEN 
Npts=1 

X_max  imurri  =  60 
X_m  in  imurri  =  0 
END  IF 

X_max 1 mum=X_max imum+20 

WINDOW  X_m  1  n  imum  .  X_max  imum ,  -  5,270 

AXES  2 , 2 , X_min imum , -5 , 5 , 5 , 5 

l_abei  the  X  axis 

Step_si ze=  1  0 
X_of f  se  t  =  1 5 
GOSUB  Labe l_x 

Label  the  Y  axis 

Y_max imum=260 
S  tep_s i ze  =  20 
Y_o f  f  se  t  =  X_m 1 n 1  mum  + 1 5 
GOSUB  Label_y 

Label  the  plot 

Title$=”Y  vs  TIME  from  "dF 1 le_str ing$ 

Locat i on_x  =  X_m  m imum+ 1 25 
Locat ion_y=255 
GOSUB  Label_piot 

START  PLOTTING  Y  vs  TIME... 

CONTROL  1:20,18 
PRINT  ” 

IF  Star1_flag=0  THEN  Piot_y_star2 


4730 

4800 

4810 

4820 

4830 

4840 

4850 

4860 ! 

4870  1 

4880! 

4890 ! 

4300! 

4310  P 

4  3*i  0 
4330 
4340 
4950 
4960 
497  0 
4980 
4930 
5000! 

5  010! 
5020  ! 
5030! 
504  0  ’ 
5050  P 


FOR  1=1  TO  Npts 

Plot_x(I>=Test_data<I> 
P i ot_y ( I ) =Sd( I , 2 ) 

NEXT  I 
L  i  ne_type=  1 
Lme_labei5  =  "STAR  #1" 
GOSUB  Plot  star 


*  Plot_y_star2  * 

lot_y_star2 :  ! 

IP  Star2_flag=0  THEN  Plot_y_star3 
FOR  1=1  TO  Npts 

P 1  o t  x < I )  =  Test_data( I ) 

P iot_y < I >  =Sd< I,5> 

NEXT  I 

L l ne_type=5 

L  l  ne_l abe 1 S  = "STAR  * 2 " 

GUSUB  Plot  star 


P lot_y_star3 


iot_y_= tar  3 : ! 


5  0  6  C 

IF  Star 3_F lag-0  THEN  RETURN 

5  0  7  0 

FOR  1=1  TO  Npts 

5080 

Plot_x  ( I )  =  Test_data< I > 

5090 

Plot  y ( I ) =Sd( I , 8) 

5  ;  00 

NEXT  I 

5110 

Line  type=3 

5120 

Line_iabelS>  =  "STAR  ^3*' 

5130 

GOSUB  Plot  star 

5' 40 
5150! 

RETURN 

5160! 
5  1  7  0  ' 
5180! 
5  I  90 ! 
5200  I 


Pr l nt_graphics 


1  r  mt_g  rap  hues  :  ! 


5210 

DUMP  GRAPHICS 

5220 

PRINTER 

IS  701 

52  30 

PFItr 

524  0 

'-’PIN' 

5250 

PRINTER 

IS  1 

5260 

G  C.  L  E  A  R 

527  0 

RETURN 

5230! 

5290' 

5300 ! 

- 

Labei_x  * 

5310' 

5320  ! 

5330 

Labe i  x : * 

5340 

lORG  6 

5  350 

CSIZE  3. 

.  7 

j  360 

LOIR  90 

5  37  0 

P OR  1=0 

TO  X  maximum  SiLP  Step 

5380 

HOVE 

I , X_of  f set 

5390 

5400 

5410 

5420! 

5430! 

5440! 

5450! 

5460 ! 

5470 


LABEL  I 
NEXT  I 
RETURN 


Label_y 


Lat>el_y  :  ! 


5480 

LDIR  0 

5490 

CSIZE  2. 

b500 

LORG  8 

55  1  0 

FOR  1=0 

5520 

MOVE 

5530 

LABEL 

5540 

NEXT  I 

5550 

RETURN 

5560! 

5570! 

*■*•*•***■• 

5580! 
3590! 
5600 ! 
:>  6 1  0  I 
:>620 
5630 
5640 
5650 
j  c>  6  0 

567  0 
5680 ! 
5690 ! 
57  00! 
5  710! 
5  720 ! 
57  30  : 
5  74  0 
5  7  5  0 
5760 
57  70 
5  780 
5790 
530  0 
56'  1  0 
5820 
5830 
584  0 
5350 

b  8  6  0 

5870! 
5880 ! 
5890! 
5900! 
591  0* 


Labe l_p lot 


Labe i_p lot: ! 

CSIZE  7, .6 
LORG  5 
LDIR  0 

MOVE  Locat icm_x . Locat ion_y 

LABEL  Titles 

RETURN 


Plot  star 


Plot  star:! 


r  C;  t  7  r  •“>  c  i  c 

oU  1  Lu  l.  •  >9  t  i  .  w> 


LINE  TYPE  Line_type 
MOVE  P io t_x < 1 ) , P lo t_y ( 1 ) 

P OR  1  =  1  TO  Np t s 

DRAW  P lo t_x < I > , P lot_y  < I ) 

NEXT  1 
LINE  TYPE  1 

IF  Plot_y< 1 00)=0  THEN  P 1 ot_y < 1 00 > =25 
IF  P 1 ot_x  < 1 00 )  =  0  THEN  P lo t_x < 1 00 >  =  35 
MOVE  P 1 o t_x C 1 00 ) -5 , P iot_y ( 1 00 ) +5 
LABEL  Line_iabelS 
MOVE  0.0 
RETURN 


Red isp_screen 


5920  f 

led i sp_sc reen : ! 

5930 

OUTPUT  2;ClearS; 

5940 

GCLtAR 

5950 
5960 ! 

GOTO  Mena_loop 

5970’ 

5980! 

*  Out_msg 

4 


5990! 

S~H 

6000! 

’’  4 

6010 

Out  msg :  ! 

-  ’  ■* 

5020 

BEEP 

•’ .  j 

5030 

DISP  Disp  msg$ 

o  0  4  0 

WAIT  2 

5050 

DISP 

6060 
5070  ! 

RETURN 

6080! 

6090! 

*  Shutdown  * 

100! 

•**••*•**■►*••*'►♦'*■*•■*>■■*■*■*■*'►■*••►*♦■*•■*■#■■*•*♦ 

V 

6110! 

: 

.  —  - 

5120 

Shutdown :  ! 

6130 

OFF  KEY 

6140 

OUTPUT  2;Clear$; 

61  50 

GClEAR 

6160 

PRINT  "PLOT  PROGRAM  TERMINATED..." 

6170 

END 

i 


i 


V 


Section  1-6 


Error  Messages 


1  Missing  ROM  or  configuration  error.  Loading  a  program  or  binary  file  that  is  not  compatible 
with  the  language  system.  For  example,  trying  to  load  the  1.0  PHYREC  Binary  into  a  2.0 
system,  or  loading  a  program  containing  2.0  keywords  into  a  1.0  system. 

2  Memory  overflow  If  you  get  this  error  while  loading  a  file,  the  program  is  too  large  for  the 
computer’s  memory.  If  the  program  loads,  but  you  get  this  error  when  you  press  RUN.  then 
the  overflow  was  caused  by  the  variable  declarations.  Either  way,  you  need  to  modify  the 
program  or  add  more  read/write  memory. 

3  Line  not  found  in  current  context.  Could  be  a  GOTO  or  GOSUB  that  references  a  non¬ 
existent  (or  deleted)  line,  or  an  EDIT  command  that  refers  to  a  non-existent  line  label. 

4  Improper  RETURN.  Executing  a  RETURN  statement  without  previously  executing  an 
appropriate  GOSUB  or  function  call.  Also,  a  RETURN  statement  in  a  user-defined  function 
with  no  value  specified. 

5  Improper  context  terminator.  You  forgot  to  put  an  END  statement  in  the  program.  Also 
applies  to  SUBEND  and  FNEND. 

6  Improper  FOR... NEXT  matching.  Executing  a  NEXT  statement  without  previously  executing 
the  matching  FOR  statement.  Indicates  improper  nesting  or  overlapping  of  the  loops. 

7  Undefined  function  or  subprogram.  Attempt  to  call  a  SUB  or  user-defined  function  that  is  not 
in  memory.  Look  out  for  program  lines  that  assumed  an  optional  CALL. 

8  Improper  parameter  matching.  A  type  mismatch  between  a  pass  parameter  and  a  formal 
parameter  of  a  subprogram. 

9  Improper  number  of  parameters.  Passing  either  too  few  or  too  many  parameters  to  a  sub¬ 
program.  Applies  only  to  non-optional  parameters. 

10  String  type  required.  Attempting  to  return  a  numeric  from  a  user-defined  string  function. 

11  Numeric  type  required.  Attempting  to  return  a  string  from  a  user-defined  numenc  function. 

12  Attempt  to  redeclare  variable.  Including  the  same  variable  name  twice  in  declarative  state¬ 
ments  such  as  DIM  or  INTEGER. 

13  Array  dimensions  not  specified.  Using  the  (  *  >  symbol  after  a  variable  name  when  that 
variable  has  never  been  declared  as  an  array. 

14  OPTION  BASE  not  allowed  here.  The  OPTION  BASE  statement  must  appear  before  any 
declarative  statements  such  as  DIM  or  INTEGER.  Only  one  OPTION  BASE  statement  is 
allowed  in  one  context. 


15  Invalid  bounds.  Attempt  to  declare  an  array  with  more  than  32  767  elements  or  with  upper 
bound  less  than  lower  bound. 

16  Improper  or  inconsistent  dimensions.  Using  the  wrong  number  of  subscripts  when  referencing 
an  array  element. 

17  Subscript  out  of  range.  A  subscript  in  an  array  reference  is  outside  the  current  bounds  of  the 
array. 

18  String  overflow  or  substring  error.  String  overflow  is  an  attempt  to  put  too  many  characters 
into  a  string  (exceeding  dimensioned  length).  This  can  happen  in  an  assignment,  an  ENTER 
an  INPUT,  or  a  READ  A  substring  error  is  an  attempted  violation  of  the  rules  for  substrings 
(see  Chapter  5)  Watch  out  for  null  strings  where  you  weren't  expecting  them. 

19  Improper  value  or  out  of  range.  A  value  is  too  large  or  too  small.  Applies  to  items  found  in  a 
variety  of  statements.  Often  occurs  when  the  number  builder  overflows  (or  underflows) 
during  an  I/O  operation. 

20  INTEGER  overflow.  An  assignment  or  result  exceeds  the  range  allowed  for  INTEGER  vari¬ 
ables.  Must  be  -32  768  thru  32  767. 

22  REAL  overflow  An  assignment  or  result  exceeds  the  range  allowed  for  REAL  vanables  (See 
Chapter  4.) 

24  Trig  argument  too  large  for  accurate  evaluation.  Out-of-range  argument  for  a  function  such  as 
TAN  or  LDIR. 

25  Magnitude  of  ASN  or  ACS  argument  is  greater  than  1.  Arguments  to  these  functions  must  be 
in  the  range  -  1  thru  +  1. 

26  Zero  to  non-positive  power.  Exponentiation  error. 

27  Negative  base  to  non-integer  power.  Exponentiation  error. 

28  LOG  or  LGT  of  a  non-positive  number. 

29  Illegal  floating  point  number.  Does  not  occur  as  a  result  of  any  calculations,  but  is  possible 
when  a  FORMAT  OFF  I/O  operation  fills  a  REAL  variable  with  something  other  than  a  REAL 
number. 

30  SQR  of  a  negative  number. 

31  Division  (or  MOD)  by  zero. 

32  Stnng  does  not  represent  a  valid  number.  Attempt  to  use  "non-numenc''  characters  as  an 
argument  for  VAL,  data  for  a  READ,  or  in  response  to  an  INPUT  statement  requesting  a 
number 

33  Improper  argument  for  NUM  or  RPTS  Null  string  not  allowed. 

34  Referenced  line  not  an  IMAGE  statement.  A  USING  clause  contains  a  line  identifier  and  the 
line  referred  to  is  not  an  IMAGE  statement. 

35  Improper  image  See  IMAGE  or  the  appropriate  keyword  in  the  BASIC  Language  Reference. 

36  Out  of  data  in  READ  A  READ  statement  is  expecting  more  data  than  is  available  in  the 
referenced  DATA  statements.  Check  for  deleted  lines,  proper  OPTION  BASE,  proper  use  of 
RESTORE,  or  typing  errors 


38  TAB  or  TABXY  not  allowed  here.  The  tab  functions  are  not  allowed  in  statements  that  contain 
a  USING  clause.  TABXY  is  allowed  only  in  a  PRINT  statement. 

40  Improper  REN,  COPYLINES,  or  MOVELINES  command.  Line  numbers  must  be  whole 
numbers  from  1  to  32  766.  This  may  also  result  from  a  COPYLINES  or  MOVELINES  state¬ 
ment  whose  destination  line  numbers  lie  within  the  source  range. 

41  First  line  number  greater  than  second  line  number.  Parameters  out  of  order  in  a  statement  like 
SAVE.  LIST,  or  DEL. 

43  Matrix  must  be  square.  The  MAT  functions:  IDN,  INV,  and  DET  require  the  array  to  have 
equal  numbers  of  rows  and  columns. 

44  Result  cannot  be  an  operand.  Attempt  to  use  a  matrix  as  both  result  and  argument  in  a  MAT 
TRN  or  matrix  multiplication. 

46  Attempting  a  SAVE  when  there  is  no  program  in  memory  or  a  STORE  BIN  when  there  are  no 
binary  programs  in  memory. 

47  COM  declarations  are  inconsistent  or  incorrect.  Includes  such  things  as  mismatched  dimen¬ 
sions.  unspecified  dimensions,  and  blank  COM  occurring  for  the  first  time  in  a  subprogram. 

49  Branch  destination  not  found.  A  statement  such  as  ON  ERROR  or  ON  KEY  refers  to  a  line 
that  does  not  exist.  Branch  destinations  must  be  in  the  same  context  as  the  ON... statement. 

51  File  not  currently  assigned.  Attempting  an  ON/OFF  END  statement  with  an  unassigned  I/O 
path  name. 

52  Improper  mass  storage  unit  specifier.  The  characters  used  for  a  msus  do  not  form  a  valid 
specifier.  This  could  be  a  missing  colon,  too  many  parameters,  illegal  characters,  etc. 

53  Improper  file  name.  File  names  are  limited  to  10  characters.  Foreign  characters  are  allowed 
but  punctuation  is  not. 

54  Duplicate  file  name.  The  specified  file  name  already  exists  in  directory.  It  is  illegal  to  have  two 
files  with  the  same  name  on  one  volume. 

55  Directory  overflow.  Although  there  may  be  room  on  the  media  for  the  file,  there  is  no  room  in 
the  directory  for  another  file  name.  Discs  initialized  by  BASIC  have  room  for  over  100  entnes 
in  the  directory,  but  other  systems  may  make  a  directory  of  a  different  size 

56  File  name  is  undefined  The  specified  file  name  does  not  exist  in  the  directory  Check  the 
contents  of  the  disc  with  a  CAT  command. 

58  Improper  file  type.  Many  mass  storage  operations  are  limited  to  certain  file  types  For  exam¬ 
ple.  LOAD  is  limited  to  PROG  files  and  ASSIGN  is  limited  to  ASCII  and  BDAT  files. 

59  End  of  file  or  buffer  found.  For  files:  No  data  left  when  reading  a  file,  or  no  space  left  when 
wnting  a  file.  For  buffers:  No  data  left  for  an  ENTER,  or  no  buffer  space  left  for  an  OUTPUT 
Also.  WORD-mode  TRANSFER  terminated  with  odd  number  of  bytes. 

60  End  of  record  found  in  random  mode.  Attempt  to  ENTER  a  field  that  is  larger  than  a  defined 
record 

62  Protect  code  violation  Failure  to  specify  the  protect  code  of  a  protected  file,  or  attempting  to 
protect  a  file  of  the  wrong  type. 

64  Mass  storage  media  overflow  There  is  not  enough  contiguous  free  space  for  the  specified  file 
size.  The  disc  is  full. 


66 

67 

68 

72 

73 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

87 

88 

89 

90 
100 
101 
102 


INITIALIZE  failed.  Too  many  bad  tracks  found.  The  disc  is  defective,  damaged,  or  dirty. 

Illegal  mass  storage  parameter.  A  mass  storage  statement  contains  a  parameter  that  is  out  of 
range,  such  as  a  negative  record  number  or  an  out  of  range  number  of  records. 

Syntax  error  occurred  during  GET.  One  or  more  lines  in  the  file  could  not  be  stored  as  valid 
program  lines.  The  offending  lines  are  usually  listed  on  the  system  printer.  Also  occurs  if  the 
first  line  in  the  file  does  not  start  with  a  valid  line  number. 

Disc  controller  not  found  or  bad  controller  address.  The  msus  contains  an  improper  device 
selector,  or  no  external  disc  is  connected. 

Improper  device  type  in  mass  storage  unit  specifier.  The  msus  has  the  correct  general  form, 
but  the  characters  used  for  a  device  type  are  not  recognized. 

Incorrect  unit  number  in  mass  storage  unit  specifier.  The  msus  contains  a  unit  number  that 
does  not  exist  on  the  specified  device 

Attempt  to  purge  an  open  file.  The  specified  file  is  assigned  to  an  I/O  path  name  which  has  not 
been  closed. 

Invalid  mass  storage  volume  label.  Usually  indicates  that  the  media  has  not  been  initialized  on 
a  compatible  system.  Could  also  be  a  bad  disc. 

File  open  on  target  device.  Attempt  to  copy  an  entire  volume  with  a  file  open  on  the  destina¬ 
tion  disc. 

Disc  changed  or  not  in  drive.  Either  there  is  no  disc  in  the  drive  or  the  drive  door  was  opened 
while  a  file  was  assigned. 

Mass  storage  hardware  failure.  Also  occurs  when  the  disc  is  pinched  and  not  turning.  Try 
reinserting  the  disc. 

Mass  storage  unit  not  present.  Hardware  problem  or  an  attempt  to  access  a  left-hand  drive  on 
the  Model  26. 

Write  protected.  Attempting  to  write  to  a  write_protected  disc.  This  includes  many  operations 
such  as  PURGE.  INITIALIZE.  CREATE.  SAVE.  OUTPUT,  etc. 

Record  not  found.  Usually  indicates  that  the  media  has  not  been  initialized. 

Media  not  initialized.  (Usually  not  produced  by  the  internal  drive  ) 

Record  address  error.  Usually  indicates  a  problem  with  the  media. 

Read  data  error.  The  media  is  physically  or  magnetically  damaged,  and  the  data  cannot  be 
read 

Checkread  enor  An  error  was  detected  when  reading  the  data  just  written.  The  media  is 
probably  damaged. 

Mass  storage  system  error  Usually  a  problem  with  the  hardware  or  the  media. 

Numenc  IMAGE  for  string  item. 

Stnng  IMAGE  for  numenc  item. 

Numenc  field  specifier  is  too  large  Specifying  more  than  160  characters  in  a  numenc  field 


i 


103  Item  has  no  corresponding  IMAGE.  The  image  specifier  has  no  fields  that  are  used  for  item 
processing.  Specifiers  such  as  *  !!  /  are  not  used  to  process  the  data  for  the  item  list. 
Item-processing  specifiers  include  things  like  k  D  B  A 

105  Numenc  IMAGE  field  too  small.  Not  enough  characters  are  specified  to  represent  tne  number 

106  IMAGE  exponent  field  too  small.  Not  enough  exponent  characters  are  specified  to  represent 
the  number. 

107  IMAGE  sign  specifier  missing  Not  enough  characters  are  specified  to  represent  tne  number 
Number  would  fit  except  for  the  minus  sign 

117  Too  many  nested  structures.  The  nesting  level  is  too  deep  tor  such  structures  as  FOR. 
SELECT.  IF.  LOOP.  etc. 

118  Too  many  structures  in  context.  Refers  to  such  structures  as  FOR  NEXT.  IF  THEN  ELSE 
SELECT,  CASE.  WHILE,  etc 

120  Not  allowed  while  program  running.  The  program  must  be  stopped  before  you  can  execute 
this  com  mand. 

121  Line  not  in  main  program  The  run  line  specified  in  a  LOAD  or  GET  is  not  in  the  main  context 

122  Program  is  not  continuable.  The  program  is  in  the  stopped  state,  not  the  paused  state  CONT 
is  allowed  only  in  the  paused  state 

126  Quote  mark  in  unquoted  stnng.  Quote  marks  must  be  used  in  pairs 

127  Statements  which  affect  the  knob  mode  are  out  of  order. 

128  Line  too  long  during  GET 

131  Unrecognized  non-ASCII  keycode.  An  output  to  the  keyboard  contained  a  CHR$(255i  fol¬ 
lowed  by  an  illegal  byte. 

132  Keycode  buffer  overflow  Trying  to  send  too  many  characters  to  the  keyboard  butfer  with  an 
OUTPUT  2  statement. 

133  DELSUB  of  non-existent  or  busy  subprogram 

134  Improper  SCRATCH  statement 

135  READIO  WRITEIO  to  nonexistent  memory  location. 

136  REAL  underflow  The  input  or  result  is  closer  to  zero  than  10~J08  (approximately). 

140  Too  many  symbols  in  the  program.  Symbols  are  vanable  names,  I/O  path  names.  COM  block 
names,  subprogram  names,  and  line  identifiers. 

141  Vanable  cannot  be  allocated.  It  is  already  allocated. 

142  Vanable  not  allocated.  Attempt  to  DEALLOCATE  a  variable  that  was  not  allocatec 

143  Reference  to  missing  OPTIONAL  parameter  The  subprogram  is  trying  to  use  an  optional 
parameter  that  didn't  have  any  value  passed  to  it.  Use  NPAR  to  check  the  number  ot  passed 
parameters. 

145  May  not  build  COM  at  this  time  Attempt  to  add  or  change  COM  when  a  program  is  running 
For  example,  a  program  does  a  LOADSUB  and  the  COM  in  the  new  subprogram  does  not 
match  existing  COM 


146  Duplicate  line  label  in  context.  There  cannot  be  two  lines  with  the  same  line  iabei  in  one 
context. 

150  Illegal  interface  select  code  or  device  selector.  Value  out  of  range 

152  Panty  error 

153  Insufficient  data  for  ENTER.  A  statement  terminator  was  received  before  the  vanable  list  was 
satisfied. 

154  Stnng  greater  than  32  767  bytes  in  ENTER. 

155  Improper  interface  register  number.  Value  out  of  range  or  negative. 

156  Illegal  expression  type  in  list.  For  example,  trying  to  ENTER  into  a  constant. 

157  No  ENTER  terminator  found.  The  variable  list  has  been  satisfied,  but  no  statement  terminator 
was  received  in  the  next  256  characters.  The  *  specifier  allows  the  statement  to  terminate 
when  the  last  item  is  satisfied. 

158  Improper  image  specifier  or  nesting  images  more  than  8  deep.  The  characters  used  for  an 
image  specifier  are  improper  or  in  an  improper  order 

159  Numeric  data  not  received.  When  entering  characters  for  a  numenc  field,  an  item  terminator 
was  encountered  before  any  "numeric"  characters  were  received 

160  Attempt  to  enter  more  than  32  767  digits  into  one  number 

163  Interface  not  present.  The  intended  interface  is  not  present,  set  to  a  different  select  coae.  or  is 
malfunctioning 

164  Illegal  BYTE.  WORD  operation.  Attempt  to  ASSIGN  with  the  WORD  attribute  to  a  non-word 
device. 

165  Image  specifier  greater  than  dimensioned  string  length. 

167  Interface  status  error  Exact  meaning  depends  upon  the  interface  type.  With  HP-IB.  this  can 
happen  when  a  non-controller  operation  by  the  computer  is  aborted  by  the  bus 

168  Device  timeout  occurred  and  the  ON  TIMEOUT  branch  could  not  be  taken. 

170  I  O  operation  not  allowed  The  I/O  statement  has  the  proper  form,  but  its  operation  is  not 
defined  for  the  specified  device.  For  example,  using  an  HP-IB  statement  on  a  non-HP  IB 
interface  or  directing  a  LIST  to  the  keyboard. 

171  Illegal  10  addressing  sequence  The  secondary  addressing  in  a  device  selector  is  improper  or 
pnmary  address  too  large  for  specified  device. 

172  Peripheral  error.  PSTS  line  is  false.  If  used,  this  means  that  the  peripheral  device  is  down  If 
PSTS  is  not  being  used  this  error  can  be  suppressed  by  using  controi  register  2  of  the  GPIO 

173  Active  or  system  controller  required  The  HP-IB  is  not  active  controller  and  needs  to  be  for 
the  specified  operation 

174  Nested  I/O  prohibited  An  I/O  statement  contains  a  user-defined  function  Both  the  onginal 
statement  and  the  function  are  trying  to  access  the  same  file  or  device 

177  Undefined  I/O  path  name  Attempting  to  use  an  I'O  path  name  that  is  not  assigned  to  a  device 
or  file. 

178  Trailing  punctuation  in  ENTER.  The  trailing  comma  or  semicolon  that  is  sometimes  used  at 
the  end  of  OUTPUT  statements  is  not  allowed  at  the  end  of  ENTER  statements 


301  Cannot  do  while  connected. 

303  Not  allowed  when  trace  active. 

304  Too  many  characters  without  terminator. 

306  Interface  card  failure.  The  datacomm  card  has  failed  self-test. 

310  Not  connected. 

313  USART  receive  buffer  overflow.  Overrun  error  detected.  Interface  card  is  unable  to  keep  up 
with  incoming  data  rate.  Data  has  been  lost. 

314  Receive  buffer  overflow.  Program  is  not  accepting  data  fast  enough  to  Keep  up  with  incoming 
data  rate.  Data  has  been  lost. 

315  Missing  data  transmit  clock.  A  transmit  timeout  has  occurred  because  a  missing  data  clock 
prevented  the  card  from  transmitting.  The  card  has  disconnected  from  the  line. 

316  CTS  false  too  long.  The  interface  card  was  unable  to  transmit  for  a  predetermined  penod  of 
time  because  Clear-To-Send  was  false  on  a  half-duplex  line  The  card  has  disconnected  from 
the  line 

317  Lost  earner  disconnect.  Data  Set  Ready  (DSR)  or  Data  Garner  Detect  (if  full  duplex)  went 
inactive  for  too  long. 

318  No  activity  disconnect.  The  card  has  disconnected  from  the  line  because  no  data  was  trans¬ 
mitted  or  received  for  a  predetermined  length  of  time. 

319  Connection  not  established.  Data  Set  Ready  or  Data  Carner  Detect  .if  full  dupiex)  did  no: 
become  active  within  a  predetermined  length  of  time. 

324  Card  trace  buffer  overflow. 

325  Illegal  databits  parity  combination.  Attempting  to  program  3  bits-per-c.naracter  and  a  party  of 
"1"  or  '0". 

326  Register  address  out  of  range  A  control  or  status  register  access  was  attempted  to  a  non¬ 
existent  register. 

327  Register  value  out  of  range  Attempting  to  place  an  illegal  value  in  a  control  register 

328  USART  Transmit  underrun. 

330  User-defined  LEXICAL  ORDER  IS  table  size  exceeds  array  size 

331  Repeated  value  in  pointer.  A  MAT  REORDER  vector  has  repeated  subsenpts  This  error  :s  no: 
always  caught. 

332  Non-existent  dimension  given  Attempt  to  specify  a  non-existent  dimension  in  a  MAT  REOR¬ 
DER  operation. 

333  improper  subscript  in  pointer  A  MAT  REORDER  vector  specifies  a  non-existent  suoscript 

334  Pointer  size  is  not  equal  to  the  number  of  records.  A  MAT  REORDER  vector  has  a  different 
number  of  elements  than  the  specified  dimension  of  the  array. 

335  Pointer  is  not  a  vector  Only  single-dimension  arrays  (vectors)  can  be  used  as  the  pointer  in  a 
MAT  REORDER  or  a  MAT  SORT  statement. 

337  Substnng  key  is  out-of-range  The  specified  substnng  range  of  the  sort  key  exceeds  trie 
dimensioned  length  of  the  elements  in  the  array 
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338  Key  subscript  out-of-range.  Attempt  to  specify  a  subscript  in  a  sort  key  outside  the  current 
bounds  of  the  array. 

340  Mode  table  too  long.  User-defined  LEXICAL  ORDER  IS  mode  table  contains  more  than  63 
entnes. 

341  Improper  mode  indicator.  User-defined  LEXICAL  ORDER  IS  table  contains  an  illegal  com¬ 
bination  of  mode  type  and  mode  pointer. 

342  Not  a  single-dimension  integer  array.  User-defined  LEXICAL  ORDER  IS  mode  table  must  be 
a  single-dimension  array  of  type  INTEGER. 

343  Mode  pointer  is  out  of  rar^e.  User-defined  LEX'CAL  ORDER  IS  table  has  a  mode  pointer 
greater  than  the  existing  mode  table  size. 

344  1  for  2  list  empty  or  too  long.  A  user-defined  LEXICAL  ORDER  IS  table  contains  an  entry 
indicating  an  improper  number  of  1  for  2  secondaries. 

345  CASE  expression  type  mismatch.  The  SELECT  statement  and  its  CASE  statements  must  refer 
to  the  same  general  type,  numeric  or  string. 

346  INDENT  parameter  out-of-range.  The  parameters  must  be  in  the  range:  0  thru  eight  charac¬ 
ters  less  than  the  screen  width 

347  Structures  improperly  matched.  There  is  not  a  corresponding  number  of  structure  beginnings 
and  endings.  Usually  means  that  you  forgot  a  statement  such  as  END  IF.  NEXT.  END 
SELECT,  etc. 

349  CSUB  has  been  modified.  A  contiguous  block  of  compiled  subroutines  has  been  modified 
since  it  was  loaded.  A  single  module  that  shows  as  multiple  CSUB  statements  has  been 
altered  because  program  lines  were  inserted  or  deleted. 

353  Data  link  failure. 

401  Bad  system  function  argument.  An  invalid  argument  was  given  to  a  time.  date,  base  conver¬ 
sion.  or  SYSTEMS  function 

403  Copy  failed:  program  modification  incomplete.  An  error  occurred  dunng  a  COPYLINES  or 
MOVELINES  resulting  in  an  incomplete  operation.  Some  lines  may  not  have  been  copied  or 
moved. 

427  Priority  may  not  be  lowered 

471  TRANSFER  not  supported  by  the  interface. 

488  DMA  hardware  required.  HP  9885  disc  drive  requires  a  DMA  card  or  is  malfunctioning 

511  The  result  array  in  a  MAT  INV  must  be  of  type  REAL. 

600  Attnbute  cannot  be  modified.  The  WORD/BYTE  mode  cannot  be  changed  after  assigning  the 
I/O  path  name. 

601  Improper  CONVERT  lifetime  When  the  CONVERT  attribute  is  included  in  the  assignment  of 
an  I  O  path  name,  the  name  of  a  string  variable  containing  the  conversion  is  also  specified. 
The  conversion  string  must  exist  as  long  as  the  I/O  path  name  is  valid. 

602  Improper  BUFFER  lifetime  The  variable  designated  as  a  buffer  during  an  I/O  path  name 
assignment  must  exist  as  long  as  the  I/O  path  name  is  valid. 


603  Variable  was  not  declared  as  a  BUFFER.  Attempt  to  assign  a  vanable  as  a  buffer  without  first 
declaring  the  variable  as  a  BUFFER. 

604  Bad  source  or  destination  for  a  TRANSFER  statement.  Transfers  are  not  allowed  to  the  CRT. 
keyboard,  or  tape  backup  on  CS80  drives.  Buffer  to  buffe-  or  device  to  device  transfers  are 
not  allowed. 

605  BDAT  file  type  required.  Only  BDAT  files  can  be  used  in  a  TRANSFER  operation. 

606  Improper  TRANSFER  parameters.  Conflicting  or  invalid  TRANSFER  parameters  were  speci¬ 
fied.  such  as  RECORDS  without  and  EOR  clause,  or  DELIM  with  an  outbound  TRANSFER 

607  Inconsistent  attributes.  Such  as  CONVERT  or  PARITY  with  FORMAT  OFF 

609  IVAL  or  DVAL  result  too  large.  Attempt  to  convert  a  binary,  octal,  decimai.  or  hexadecimal 
string  into  a  value  outside  the  range  of  the  function. 

612  BUFFER  pointers  in  use.  Attempt  to  change  one  or  more  buffer  pointers  while  a  TRANSFER 
is  in  progress. 

700  Improper  plotter  specifier.  The  characters  used  as  a  plotter  specifier  are  not  recognized  May¬ 
be  misspelled  or  contain  illegal  characters. 

702  CRT  graphics  hardware  missing.  Hardware  problem. 

704  Upper  bound  not  greater  than  lower  bound.  Applies  to  P2<=P1  or  VIEWPORT  upper 
bound  and  CLIP  limits. 

705  VIEWPORT  or  CLIP  beyond  hard  clip  limits. 

708  Device  not  initialized. 

900  Undefined  typing  aid  key. 

901  Typing  aid  memory  overflow. 

902  Must  delete  entire  context.  Attempt  to  delete  a  SUB  or  DEF  FN  statement  without  deleting  its 
entire  context.  Easiest  way  to  delete  is  with  DELSUB. 

903  No  room  to  renumber.  While  EDIT  mode  was  renumbering  during  an  insert,  all  available  line 
numbers  were  used  between  insert  location  and  end  of  program. 

904  Null  FIND  or  CHANGE  string. 

905  CHANGE  would  produce  a  line  too  long  for  the  system.  Maximum  line  length  is  100  charac¬ 
ters  for  the  Model  26  and  160  characters  for  the  Models  16  and  36 

906  SUB  or  DEF  FN  not  allowed  here.  Attempt  to  insert  a  SUB  or  DEF  FN  statement  into  the 
middle  of  a  context.  Subprograms  must  be  appended  at  the  end. 

909  May  not  replace  SUB  or  DEF  FN  Similar  to  deleting  a  SUB  or  DEF  FN 

910  Identifier  not  found  in  this  context.  The  keyboard-specified  variable  does  not  already  exist  in 
the  program.  Variables  cannot  be  created  from  the  keyboard;  they  must  be  created  by 
running  a  program. 

911  Improper  I/O  list 

920  Numeric  constant  not  allowed. 


921  Numeric  identifier  not  allowed. 

922  Numeric  array  element  not  allowed. 

923  Numeric  expression  not  allowed. 

924  Quoted  string  not  allowed. 

925  String  identifier  not  allowed. 

926  String  array  element  not  allowed. 

927  Substring  not  allowed. 

928  String  expression  not  allowed. 

929  I/O  path  name  not  allowed. 

930  Numeric  array  not  allowed. 

931  String  array  not  allowed. 

932  Excess  keys  specified.  A  sort  key  was  specified  following  a  key  which  specified  the  entire 
record. 

935  Identifier  is  too  long:  15  characters  maximum. 

936  Unrecognized  character.  Attempt  to  store  a  program  line  containing  an  improper  name  or 
illegal  character. 

937  Invalid  OPTION  BASE.  Only  0  and  1  are  allowed. 

939  OPTIONAL  appears  twice.  A  parameter  list  may  have  only  one  OPTIONAL  keyword.  All 
parameters  listed  before  it  are  required,  all  listed  after  it  are  optional. 

940  Duplicate  formal  parameter  name. 

942  Invalid  I/O  path  name.  The  characters  after  the  8  are  not  a  valid  name.  Names  must  start 
with  a  letter. 

943  Invalid  function  name.  The  characters  after  the  FN  are  not  a  valid  name.  Names  must  start 
with  a  letter. 

946  Dimensions  are  inconsistent  with  previous  declaration.  The  references  to  an  array  contain  a 
different  number  of  subscripts  at  different  places  in  the  program. 

947  Invalid  array  bounds.  Value  out  of  range,  or  more  than  32  767  elements  specified. 

948  Multiple  assignment  prohibited.  You  cannot  assign  the  same  value  to  multiple  variables  by 
stating  ><  =  Y  =  Z  =  0.  A  separate  assignment  must  be  made  for  each  variable. 

949  This  symbol  not  allowed  here.  This  is  the  general  "syntax  error"  message  The  statement  you 
typed  contains  elements  that  don't  belong  together,  are  in  the  wrong  order,  or  are  misspelled. 

950  Must  be  a  positive  integer 

951  Incomplete  statement.  This  keyword  must  be  followed  by  other  items  to  make  a  valid  state¬ 
ment. 

961  CASE  expression  type  mismatch  The  CASE  line  contains  items  that  are  not  the  same  general 
type,  numenc  or  string. 
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963 
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Programmable  only:  cannot  be  executed  from  the  keyboard. 

Command  only:  cannot  be  stored  as  a  program  line. 

Statement  is  too  complex.  Contains  too  many  operators  and  functions.  Break  the  expression 
down  so  that  it  is  performed  by  two  or  more  program  lines. 

Too  many  symbols  in  this  context.  Symbols  include  variable  names.  I/O  path  names.  COM 
block  names,  subprogram  names,  and  line  identifiers. 

Too  many  subscripts:  maximum  of  six  dimensions  allowed. 

Wrong  type  or  number  of  parameters.  An  improper  parameter  list  for  a  machine-resident 
function. 

Invalid  quoted  string. 

Invalid  line  number:  must  be  a  whole  number  1  thru  32  766. 


